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Das Utility-Paket besteht aus vier Modulen, die von Programmierern benutzt werden können, um 
professionelle grafische Anwendungsprogramme in Pascal zu schreiben. 








Benötigt wird ein Apple Pascal Betriebssystem, entweder die Version 1.1 oder die neue Version 
1.2. Bestehende Programme laufen ohne Einschränkung mit der neuen „TurtleGraphics”, wenn 
diese nicht zu viel Speicherplatz verbraucht haben, da die neue „TurtleGraphics” umfangreicher 
als die alte ist. Für Fenstertechnik ist 128K-Pascal + Maus erforderlich. 


Im einzelnen bietet das Paket folgende Möglichkeiten: 


— volle Kompatibilität mit der alten „TurtleGraphics“ 

— lauffähig auf Pascal 1.1 und 1.2 

— funktionsfähig mit angeschlossener UltraTerm-Karte 

— alle zeitkritischen Funktionen in reinem Assembler programmiert 

— Benutzung der zweiten Hires-Seite ($4000-$5FFF) möglich 

— für Apple Ilc und Apple Ile mit erweiterter 80-Zeichen-Karte Benutzung der doppelten Hires- 
Grafik mit 560 x 192 Punkten bzw. 16 neuen Farben möglich 

— schnelle Prozeduren zum Zeichnen eines Punktes oder einer Linie 

— Linearisierung von Teilen des Hires-Schirms 

— Benutzung mehrerer Zeichensätze gleichzeitig 

— Laden und Speichern von Hires-Bildern mit Ausdruck über Pascal-SUPERDUMP 

— Scrolling des Hires-Schirms oder eines Teils in vier Richtungen 

— drei verschiedene Schriftarten: Fett-, Breit- und Proportionalschrift, beliebig mischbar 
(acht Möglichkeiten) 

— spezielle schnelle Ausgabe von Text 

— Cursor bei Eingabe frei programmierbar 

— Ein-/Ausgabe von INTEGER-, CHAR-, STRING- und REAL-Werten im Grafikmodus 

— Menüzeile wie beim Macintosh (Die nachfolgenden Module benötigen Maus/Joystick) und 
128K-Pascal 

— Pull-down-Menüs 

— Laden und Speichern von Fenstern (Windows) 

— Öffnen von Fenstern 

— Aktivieren und Deaktivieren von Fenstern 

— Verschieben und Vergrößern/Verkleinern von Fenstern 

— Scrolling von Fensterinhalten in allen vier Richtungen 

— Umfangreiche Demos als Quelltexte. 
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* Wie wir während der Drucklegung erfahren 
haben, hat man sich inzwischen eines ande- 
ren besonnen und wird voraussichtlich eine 
256K-Erweiterung in den Paketpreis ein- 
schließen. 


Neues zum Apple GS 


Ursprünglich sollte der Apple IIGS, der sich 
beim Booten Übrigens mit „Apple IIgs“ meldet, 
unmittelbar nach der Aussendung der Presse- 
rundschreiben am 15.9.86 erhältlich sein. Nun- 
mehr wird es noch eine kleine Verzögerung 
geben, so daß größere Stückzahlen erst zum 
Jahresende zur Verfügung stehen werden. 


Apple-Il-Kompatibilität 

Wir haben inzwischen eine Reihe von Kompati- 
bilitätstests durchgeführt. Grundsätzlich muß 
man konstatieren, daß die Mehrzahl der Altpro- 
gramme auch auf dem Apple Ilgs lauffähig ist. 
Dies gilt insbesondere für die für den Apple Ile 
mit neuen ROMs gedachten Programme, denn 
Software für den II+, die nicht auf dem Ile lief, 
wird auch auf dem Ilgs nicht laufen, da der |!gs 
in dieser Hinsicht mehr dem Ile (mit neuen 
ROMs) als dem II+ oder |lc (mit alten ROMs) 
entspricht. 

Auch wenn sich viele Altprogramme starten las- 
sen, so heißt dies noch lange nicht, daß sie in 
allen Einzelheiten auf dem Ilgs laufen. Dies gilt 
insbesondere dann nicht, wenn Programme von 
Monitorroutinen ($F800-$FFFF) Gebrauch ma- 
chen. Beispielsweise funktioniert der spezielle 
Monitorbefehl unseres „Macroeditors" (M300L 
usw.) nicht auf dem Ilgs; alle anderen Befehle 
scheinen zu funktionieren. Hier müßte man also 
mit einem Patch nachhelfen, denn die Monitor- 
befehle wurden beim Ilgs erheblich erweitert. 
Ein weiteres Inkompatibilitätsbeispiel ist die Sei- 
te 2 ($0C00-$0OFFF) des Textbildschirms, die 
sich nicht mehr mit $C055 oder entsprechen- 
den Peeks einschalten läßt. Davon sind etliche 
Anwenderprogrammen tangiert, beispielsweise 
auch unser „Disk 40". 


Accelerator und Ilgs 

Der IIgs ist theoretisch mit 2,8 MHz und prak- 
tisch mit etwa 2,5 MHz getaktet, während etwa 
die Accelerator von Titan mit theoretisch 3,6 
MHz und praktisch mit 3,3 MHz gefahren wird. 
Deshalb wirbt Applied Engineering unter dem 
Konterfei von Steve Wozniak im Oktober-Heft 
der „Incider“ damit, daß die neue 3,6-MHz- 
Transwarp-Karte, die in Deutschland Über die 
Firma Weiß in Wilhelmshaven erhältlich ist, 40% 
schneller als der Ilgs sei, Dies dürfte jedoch 
übertrieben sein. Einige Applesoft-Beispiele für 
die 3,3-MHz-Accelerator mit handgestoppten 
Zeiten (in Sekunden): 


EdITORIA 


FOR% 1 10 1000: 

Y= SOR(X): NEXT 

Accel: 60s; Ilgs: 74s. 

FORX = 1 TO 4000: 

PRINT SQR(X);: NEXT 

Accel: 93s; IIgs: 1008 (in 80 Z/Z). 

FOR X = 1 TO 8000: 

PRINT X;: NEXT 

Accel: 40s; Ilgs: 36s (in 80 Z/Z). 

Diese drei Beispiele zeigen deutlich: Solange 
überwiegend 6502-Befehle des auch im.Ilgs 
unveränderten Applesoft-Interpreters abgear- 
beitet werden, ist die Accelerator schneller als 
der IIgs. Überwiegen jedoch die 65816-Befehle 
des neuen Monitors, so ist der |Igs trotz der 
niedrigeren Taktfrequenz der Accelerator über- 
legen. Trotzdem kommt der 2,5-MHz-65816 
natürlich niemals an die Leistungsfähigkeit ei- 
nes 8-MHz-68000 heran. 


llgs- und Atari-Preise 

Die Preise für einzelne Ilgs-Komponenten wur- 
den noch nicht festgelegt, doch liegen inzwi- 
schen wenigstens die Paketpreise vor. Danach 
muß man für das Grundgerät mit 256K RAM und 
einem 800K-Drive einschließlich eines Schwarz- 
weißmonitors DM 3.990,- und einschließlich ei- 
nes Farbmonitors DM 4.990,- bezahlen. Wie sich 
inzwischen herausgestellt hat, ist mindestens 
ein 800K-Drive unbedingt erforderlich, weil z.B. 
das 16-Bit-ProDOS auf einer 140K-Diskette gar 
nicht untergebracht werden konnte. Darüber 
hinaus dürfte auch eine Vielzahl der zu erwar- 
tenden |lgs-16-Bit-Programme mit 256K RAM 
nicht auskommen. So läßt sich beispielsweise 
das ProDOS-Entwicklungsprogramm bei einem 
256K-Rechner erst gar nicht starten. Dies heißt 
jedoch, daß man zu den DM 4000,- für das 
Grundgerät noch mindestens DM 1000, - für die 
Speichererweiterung hinzurechnen muß. Damit 
dürfte eine Minimalkonfiguration des !Igs für un- 
ter DM 5000,- kaum erhältlich sein.* 

Ganz anders verfährt hier die Firma Atari, die 
den Preis für den Atari 1040 ST mit 1 Megabyte 
RAM, 720K-Drive und Schwarzweißmonitor mit 
Wirkung ab 1.10.86 auf DM 2.500,- und somit 
auf den halben Preis einer vergleichbaren Ilgs- 
Konfiguration gesenkt hat, nachdem vor kurzem 
der neue Schneider-PC mit 512K RAM, 360K- 
Drive und Schwarzweißmonitor zu einem Preis 
von DM 2.000,- vorgestellt worden ist. 


Lux EPER 


Ulrich Stiehl 
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Disk-Monitor 





Ein Disketteneditor für DOS 3.3 


Am Anschluß an den Disketteneditor EDIT 
(Peeker, Heft 5/86 ff.), der nur für ProDOS 
gedacht ist, wird mit dem „Disk-Monitor” 
nunmehr ein komfortabler Editor für DOS 
3,3 vorgestellt. 


1. Gerätevoraussetzung 


Für das Funktionieren dieses Programms 
wird ein Apple Ile mit 80-Zeichenkarte be- 
nötigt. Das Programm läuft also nicht auf 
einem II+. Von der 80-Zeichenkarte wird 
nur die Textseite verwendet. Die restli- 
chen 63K einer erweiterten 64K-Karte und 
die Language-Card sind damit frei, 

Die RWTS des DOS 3.3 oder Diversi-DOS 
wird an der üblichen Adresse erwartet und 
über den Vektor auf Speicherseite 3 ange- 
sprungen. Die ersten 5 Bytes des Pro- 
gramms patehen DOS 3.3 bei $B942, da- 
mit auch ein Teil der kopiergeschützten 
Programme und Daten gelesen und edi- 
tiert werden kann. Wer einen Original- 
Championship-LODE-RUNNER besitzt, 
kann dann z.B. die Bilder (Spuren $3 bis 
$C) lesen. 

Da sehr viele ROM-Routinen benutzt wer- 
den, ist es möglich, daß das Programm auf 
dem Ile nicht funktioniert. Aus demselben 
Grund muß auch bei den neuen lle-ROMs 
mit eventuellen Problemen gerechnet 
werden. Speziell die Kassetten-Features 
funktionieren auf dem Ilc in keinem Fall. 
Die ROM-Routinen wurden alle mit den 
Labelnamen des Addendums zum Apple- 
lle-Reference-Manual versehen. Man 
kann also dort nachsehen, was die jeweili- 
ge ROM-Routine macht. 

Da sich die RDKEY-Routine im alten Ile- 
ROM mit dem Rechtspfeil gewisse Eigen- 
mächtigkeiten erlaubt, haben wir sie durch 
eine eigene Routine ersetzt, damit wir im 
Editor den Cursor über die Pfeiltasten 
steuern können. Hier spielte anfänglich die 
„Del“-Taste verrückt; wir haben sie daher 
lahmgelegt, denn benutzt wird diese Taste 
ohnehin nicht. 
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00:01 


10:85 
20:58 
30 :0C 
48 :CD 
50:D3 
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Puffer: { 
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Cursor durch Pfeile 


Ctri-I inverse 


Abb. 1. Bildschirminhalt (hier ohne Kopfleiste) 
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Ctri-A Hex {--> ASCII 


Drive:di 


Spur: 00 Sektor: 
oB BC 


07 


Ctri-Q quit 
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Abb. 2. Ausdruck des Bildschirminhalts 
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2. Programmübersicht 


Das Programm „Spy the Disk-Monitor" 
oder kurz DISK.MONITOR ist ein komfor- 
tabler DOS-3.3-Sektor-Editor, der auf- 
grund seiner 80-Zeichendarstellung in der 
Lage ist, den ganzen Sektor auf einmal 
sowohl in Hex als auch in ASCI| anzuzei- 
gen. Man muß also nicht hin- und herblät- 
tern, um sich einen Überblick über einen 
DOS-Sektor zu verschaffen. Die Sektoren 
können komfortabel sowohl in Hex als 
auch in ASCli editiert werden, wobei In 
ASCII sowohl die Zeichen mit Bit 7 on wie 
auch mit Bit 7 off direkt per Tastatur einge- 
geben werden können. 

Insgesamt stehen 96 Puffer zur freien Ver- 
fügung. Das dürfte wohl genügen! Diese 
können alle einzeln angesteuert und be- 
trachtet bzw. editiert werden. Man kann sie 
aber auch komplett auf einmal laden bzw. 
abspeichern. 

Jeder einzelne Puffer (und auch alle zu- 
sammen) kann auch ausgedruckt werden. 
Die dazu verwendeten Steuerzeichen ste- 
hen am Ende des Programms und enden 
mit $00 als Endmarke. Sie werden über 
STROUT ausgegeben und müssen daher 
mit $00 enden. Sie sind definiert für den 
Epson RX-80 F/T und bewirken Index- 
Modus (= 1/3 Zeichenhöhe), einen auf 5 
Punkte verringerten Zeilenvorschub und 
Schmalschrift, Die Steuerzeichen lauten: 
Esc S1 Esc 3 Ctrl-O COtrl-O. 
Selbstverständlich können alle Befehle 
auch mit Kleinbuchstaben eingegeben 
werden. Alle Befehle des Auswahl-Modus 
sind rechts neben dem ASCIlI-Fenster auf 
dem Bildschirm zusehen. Das Befehlszei- 
chen selbst ist invers dargestellt. Die Cur- 
sortasten sind durch folgende Zeichen 
symbolisiert: 


! = Aufwärtspfeiil = 96 Sektor lesen 


(aufwärts) 

v = Abwärtspfeil = 96 Sektor lesen (ab- 
warts) 

< = Linkspfeil = vorigen Sektor lesen 
> = Rechtspfel = nächsten Sektor 
lesen 


3. Befehlsübersicht 


Drive (D) und Slot (X) der Diskette können 
frei gewählt werden. Spur (T) und Sektor 
(S) können einzeln festgelegt werden. 
Durch jeweils einen Tastendruck kann der 
vorige Sektor (Linkspfeil) bzw. der folgen- 
de Sektor (Rechtspfeil) eingelesen wer- 
den. Mit (R) kann man den aktuellen Sek- 
tor nochmals lesen, z.B. wenn man sich 
beim Editieren vertippt hat. Ebenfalls 
durch einen Tastendruck können gleich 
alle 96 Puffer in aufsteigender (Hochpfeil) 
oder absteigender (Tiefpfeil) Reihenfolge 
gelesen werden, manche Programme |le- 
sen ihre Daten nämlich in dekrementieren- 
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der Reihenfolge (z.B. LODE RUNNER). 
Ein einzelner Puffer (W) oder alle definier- 
ten Puffer (B) können mit einem Tasten- 
druck wieder dorthin auf die Diskette zu- 
rückgeschrieben werden, wo sie herka- 
men. Dies Ist möglich, weil zu jedem Puf- 
fer in den TSB-Feldern (TSB = Track- 
Sektor-Buffer) die genaue Herkunft (Spur- 
nummer und Sektornummer) vermerkt ist. 
Die Spurnummern im Speicher sind von 
$0B10 bis $0OB6F vermerkt, die Sektor- 
nummern von $0D10 bis $0D6F. Der Be- 
reich $0C10 bis $OC6F bzw. $OE1O bis 
$0E6F ist reserviert für eine mögliche Pro- 
DOS-Erweiterung. Angesichts des Pro- 
DOS-Disketteneditors EDIT von Arne 
Schäpers besteht jedoch dazu im Moment 
kein Bedarf. 

Ein Backup auf Kassette ist durch (CW) 
oder (CS) ebenfalls möglich; dabei kann in 
einem Bemerkungsfeld ein Kommentar zu 
dem abgespeicherten Diskettenauszug 
(jeweils 6 Spuren) mit abgespeichert wer- 
den. Dies ist sehr nützlich, da es auf Kas- 
setten keinen Catalog-File gibt. Das Be- 
merkungsfeld liegt von $0FOO bis $OFFF. 
Es wird genauso beschriftet wie ein nor- 
maler Sektor im Editier-Modus. Mit Ctri-Q 
wird diese Arbeit beendet, und das Schrei- 
ben auf die Kassette beginnt. Auf der Kas- 
sette wird über die ROM-Routine der 
Speicherbereich von $0B00 bis $6FFF ab- 
gespeichert. Gelesen wird dieses Backup 
von Kassette durch OR („C" und „R®; 
nicht Return!) oder CL. Eine komplette 
Diskette benötigt etwa 15 Minuten, so daß 
bei einer guten Kassette 3 Disketten auf 
eine Seite passen. Das ist aber eher die 
Ausnahme, da die meisten Kassetten von 
Dropouts geradezu übersät sind. 

Jeder Puffer kann ausgedruckt werden, 
einzeln (P) oder alle zusammen (H), dabei 
steht dann auch wieder das eben erwähn- 
te Bemerkungsfeld zur Verfügung. 


Die Puffer können wahlweise in Hex und 
ASCII (Standard) oder in Hex und Mnemo- 
nic (L) betrachtet werden. Bei letzterem 
kann nach dem „L“ jeweils durch eine 
Zahl von 1 bis F der Anfang des Listings 
innerhalb dieses Puffers bestimmt 
werden. 


Man kann auch direkt in den Monitor (M) 
springen, welcher nach Eingabe von „L“ 
den aktuellen Puffer listet. Definiert man 
im Monitor die TSB-Felder auf Seite $B 
(Spur) und $D (Sektor), dann kann man 
mit Gtrl-Y direkt mit dem Einlesen der Sek- 
toren in die 96 Puffer in der eben festge- 
legten Reihenfolge beginnen. Die Puffer 
gehen von Seite $10 bis Seite $6F. Puffer 
1/0 (von $1000 bis $10FF) ist also in 
$0B10 (Spur) und $0D10 (Sektor) defi- 
niert. Entsprechend steht die Spurnummer 
von Puffer 1/1 in $0B11 bzw. die Sektor- 
nummer in $0D11 usw. Steht nun z.B. in 


$0BI0 ein Wert größer als 34 bzw. in 
$0D10 ein Wert größer als 15, dann kann 
der Pufferinhalt nicht von einer Diskette 
stammen. Er wird daher mit der Backup- 
Funktion (B) nicht auf die Diskette ge- 
schrieben. Außerdem erscheint in der 
Topzeile an Stelle der Spur- bzw. Sektor- 
angabe die Meldung „Puffer nicht von 
Disk“. Um Fehlbedienungen zu vermei- 
den, ist im Monitor das DOS lahmgelegt. 
Durch einfaches Reset-Drücken kommt 
man wieder bequem in das Programm zu- 
rück. Der Ampersand-Vektor ruft ebenfalls 
den DISK.MONITOR wieder auf. Im Editor 
kann man durch Ctrl-I (Tab) zwischen Bit 7 
off bzw. Bit 7 on wählen. Auch in der 
Command-Ebene läßt sich mit Ctri-| bzw. | 
die Anzeige der Inverszeichen ein- und 
ausschalten. 


4. Quelltext 


Der Vorteil dieses Programms dürfte wohl 
die Tatsache sein, daß es als Quelltext auf 
der Peeker-Sammeldiskette vorliegt, denn 
es kann dann für jeden Verwendungs- 
zweck schnell und leicht angepaßt wer- 
den. Wegen des Umfangs (über 1500 Zei- 
len) kann jedoch in diesem Heft selbst nur 
der Hex-Dump abgedruckt werden. 

Der Merlin-Sourcefile nutzt den Speicher 
bis auf wenige Bytes voll aus. Vor einer 
Erweiterung muß der Quelltext entweder 
in mehrere Teile zerhackt oder der Merlin- 
Pro verwendet werden. 


Kurzhinweise 


1. Zweck: 

Disketteneditor für DOS 3.3 

2. Konfiguration: 

Ile mit 80-Zeichenkarte; DOS 3.3 oder 
Diversi-DOS 2C; Epson RX-80 

3. Test: 

BRUN DISK.MONITOR 

4. Sammeldisk: 

T.DISK.MONITOR 

DISK.MONITOR 

5. Sonstiges: Im Listing bei Bedarf Druk- 
kersteuerzeichen ändern und Programm 
neu assemblieren. 


u 


SPY.MONITOR 


BSAVE SPY.MONITOR, 
L$ESC 


$8RBB: 
$Epg8: 
$8019: 
S8PB18: 
$8928: 
58928: 
$8839B: 
$8038: 
58040: 
58048: 
$8059: 
58058: 
$806B: 
$8068: 
53078: 
98078: 
8080: 
H8088: 
$8899: 
$8098: 
HBQAB: 
$BBAB: 
$80BR: 
H80B8: 
$8dCH: 
$88C8: 
H89DB: 
$8PBD8: 
$EdER: 
$80ES: 
$8dFB: 
SBdF8: 
$8198: 
58198: 
$8llß: 
88118: 
$8128: 
68128: 
$8138: 
68138: 
88149: 
$8148: 
88158: 
$8158: 
$8l6ß: 
68168: 
$8178: 
68178: 
| $8188: 
| $8188: 
| $8199: 
88198: 
H81AB: 
$BlAB: 
S81BB: 
$81B8: 
$SElC9: 
$8lC8: 
$81D9: 
| $81D8: 
SELEB: 
| $81E8: 
S81FB: 
$8IFS: 
$8288: 
$8298: 
$8218: 
| $8218: 
58229: 
| 58228: 
$8239: 
98238: 
$8249: 
$8248: 


| $825ß: 


98258: 
$826B: 
58268: 
H8270: 
$8278: 
H8289: 
98288: 
58299: 
$8298: 
SB2AB: 


A$EDHB, 


A9 Bd 85 
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Kyan-Pascal 


Handbuch und Diskette 
Club-Preis DM 170,- 


Achtung: Ab 1.6.86 nicht mehr mit Kix- 


System! 


Hüthig Software Service - 
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AUGE-Regionalgruppen 


Die Apple User Group Europe e.V. 
mit Sitz in 4200 Oberhausen (Tel. 
0208/675141) hat allein in 
Deutschland etwa 50 Regional- 
gruppen, die sich einmal oder teil- 
weise auch zweimal im Monat in 
Schulen oder anderen öffentlichen 
Gebäuden zwecks Erfahrungsaus- 
tausch treffen. Für diejenigen 
Peeker-Leser, die entsprechende 
Kontakte suchen und Mitglied in 
der AUGE werden wollen (Jahres- 
beitrag DM 100,-), nennen wir 
nachfolgend PLZ, Ort, Name und 
Telefonnummer des jeweiligen Re- 
gionalleiters. 


1000 Berlin, T. Schneider, Tel. 
030/8539341 

2000 Hamburg, M.Stang, Tel. 040/ 
6400563 

2300 Kiel, U. Hannemann, Tel. 
0431/803021 

2390 Flensburg, D. Schwarz, Tel. 
04467/388 

2400 Lübeck, R. Oelzen, Tel. 
0451/505290 

2800 Bremen, H. Klein, Tel. 0421/ 
641643 

2850 Bremerhaven, K. Birkner, 
Tel. 04743/6413 

2940 Wilhelmshaven, J. Weikert, 
Tel. 04421/83147 

3000 Hannover, R. Schneider, Tel. 
0511/734833 

3300 Braunschweig, W. Sühring, 
Tel. 0531/335987 

3392 Clausthal, N. Molitor, Tel. 
05323/3037 

3400 Göttingen, Dr. U. Hoppe, Tel. 
0551/706398 

3500 Kassel, A. Stimpel, Tel. 
0561/877776 

A000 Düsseldorf, U. Julius, Tel. 
0211/445454 

4100 Duisburg, H. Schröder, Tel. 
0203/705827 

4200 Oberhausen, B. Schritz, Tel. 
02831/4364 

4400 Münster, A. Schimek, Tel. 
02504/3518 

4420 Coesfeld, A. Kock, Tel. 
02594/6426 

4500 Osnabrück, S. Pfeiffer, Tel. 
05473/2777 

4600 Dortmund, M. Lucas, Tel. 
0231/144920 

4630 Bochum, M. Harbold, Tel. 
02327/57292 

4708 Kamen, C.W. Fürst, Tel. 
02307/71105 

4800 Bielefeld, H. Baldewein, Tel. 
05202/71553 

4930 Detmold, H. Scheunemann, 
Tel, 05231/20665 

5000 Köln, H, Rothkegel, Tel. 
0221/5994456 

5100 Aachen, B. Stolte-Wilke, Tel. 
02408/4249 


5300 Bonn, U. Berger, Tel. 02244/ 
6556 

5400 Koblenz, R. Reckenthäler, 
Tel. 06771/7459 

5600 Wuppertal, B. Schnippering, 
Tel. 0202/80302 

5650 Solingen, O. Holthausen, Tel. 
0212/45539 

5960 Olpe, A. Hase, Tel. 02762/ 
7870 

6000 Frankfurt, C. Bohmann, Tel. 
06007/1243 

6100 Darmstadt, T. Oppermann, 
Tel. 06151/27285 

6200 Wiesbaden, H. Papenkort, 
Tel. 06198/2498 

6300 Giessen, J.P. Fuchs, Tel. 
06441/47705 

6450 Hanau, M. Mickan, Tel. 
06051/71169 

6600 Saarbrücken, |. Dickert, Tel. 
06894/52323 

6700 Ludwigshafen, Dr. H. Böhm, 
Tel. 06236/53777 

6800 Mannheim, R. Augspurger, 
Tel. 06229/7814 

7000 Stuttgart, Dr. G. Prigge, Tel, 
0711/535794 

7110 Hohenlohe, U. Schönbohm, 
Tel. 07944/2488 

7400 Tübingen, S. Kleindienst, Tel. 
07121/57747 

7470 Albstadt, V. Krippinger, Tel. 
07431/66915 

7750 Konstanz, G. Spohn, Tel. 
07542/7469 

7800 Freiburg, B. Vollmer, Tel. 
0761/74765 

7900 Ulm, A.Herold, Tel. 0731/ 
712408 

8000 München, E. Grassl, Tel, 
089/616318 

8360 Deggendorf, L. Daas, Tel. 
0911/24743 

8480 Weiden, J. Gampert, Tel. 
0961/42058/7285 

8500 Nürnberg, P. Bieberich, Tel. 
0911/221383 





Disk-Sucher 


Eine Utility zum Durchsuchen 
von DOS-3.3-Disketten 





Mit diesem kleinen Programm kann man 
eine ganze Diskette nach einem einzigen 
String durchsuchen. Der String wird vor- 
wärts, rückwärts, invers (INVERSE) und 
biinkend (FLASH) gesucht. Der Disk-Su- 
cher ist somit ideal zum Übersetzen oder 
Ändern von bestehenden Programmen. 
Das Programm wird mit 

BRUN DISK.SUCHER 

gestartet. Zuerst wird nach dem Such- 
string gefragt. Vor dem Drücken der Re- 
turntaste muß bereits die zu durchsuchen- 
de Diskette in das Laufwerk 1 gelegt wor- 
den sein. Wenn das Programm nun ge- 
startet wird, zeigt es ständig die Spur und 
den Sektor an, der gerade gelesen wird. 
Wird der String gefunden, so werden Spur 
und Sektor sowie der String, wie er auf 
dem Sektor gespeichert ist, auf dem Bild- 
schirm wiedergeben. 


Die Begrenzung auf 12 Zeichen lange 
Strings erscheint mir sinnvoll, da bei län- 
geren Strings die Wahrscheinlichkeit, daß 
der String auf zwei Files verteilt ist, schon 
viel zu groß ist. Bei Bedarf kann man den 
Quelltext ändern. 

Beim Suchen eines Strings verfährt man 
am besten so: 


— Programm starten mit BRUN DISK.SU- 
CHER bzw. nachher mit CALL 8192, 

— das zu suchende Wort eingeben, 

— Diskette einlegen und Return betätigen. 
— mit ESC wird der gleiche String noch- 
mals gesucht, und 

—- mit CR wird das Programm neu ge- 
startet, 

Das Programm verlassen Sie mit Ctrl- 
Reset. 


10 


von Jörg Windheim 


Hat nun der DISK.SUCHER nichts gefun- 
den, so ist der String bestimmt auf zwei 
Sektoren verteilt. Dazu teilt man nun die- 
sen Siring in zwei in etwa gleiche Hälften, 
und sucht nun beide Hälften getrennt für 
sich. Bleibt auch diese Suche erfolglos, so 
kann man auf jeden Fall sicher sein, daß 
dieser String nicht so zusammenhängend 
auf der Diskette steht. 


Kurzhinweise 


1. Zweck: 

Utility zum Durchsuchen von DOS-3.3- 
Disketten 

2. Konfiguration: 

II+/e/c; zu durchsuchende Diskette in 
Slot 6, Drive 1 

3. Test: 

BRUN DISK.SUCHER 

Dann z.B. Sammeldisk in S6,D1 einlegen 
und „HUETHIG" eingeben. 

4. Sammeldisk: 

T.DISK.SUCHER 

DISKSUCHER 

9. Sonstiges: 

Das Programm bricht bei Lesefehlern nicht 
ab, z.B. wenn gar keine Diskette im Lauf- 
werk liegt. In diesem Fall ziehen Sie alle 
Disketten heraus und drücken Sie Citrl- 
Reset. 


DISK.SUCHER 


BSAVE DISK.SUCHER, A$2890, L$P1D1 


92008: AC 18 28 B1 6D d1 dB BB 
$2008: BO 14 20 BD 3B BD op BL 
$2010: BO BO 6 Bl BB BL EF D8 
52018: 28 58 FC A9 dc 20 5B FB 
$202B: A2 BB BD 99 21 26 ED FD 





: B0 dB 99 
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AIARIST 


ASSEMBLER-PRAXIS AUF ATARIST 


Roland Löhr 

„ein Altmeister der Assembleranwendung, Herausgeber des Mikrocomputer- 
Magazins MICRO MAG, veröffentlicht bei te-wi seine souveräne Darstel- 
lung der Assemblerprogrammierung auf ATARI ST. 


Erklärt Grundlagen: 


Begriffe und Werkzeuge der Assemblerprogrammierundg...erforderliche 
Systemkenntnisse..systembezogene Erläuterung der 68000er 
Befehlsfunktionen. 


Zeigt Anwendungen: 


Hantieren mit ÄAssemblern: Aufruf von Assemblern; Steuern ihrer 
Optionen über Direktiven; Stellungnahme zu realen ATARI-ST:- 
Assemblern, 

Arbeiten in der ATARI-ST-Programmierumgebung: Text- 
programme zur Programmentwicklung; ein Editor; ein Parser; 
das Betriebssystem; BIOS-Funktionen; BIOS Toolbox; 

GEMDOS Toolkit; das erweiterte XBIOS. 

Anwenden des Befehlssatzes in Musterprogrammen für: E/A- 
Routinen, Rekursionen, dez/bin Rechenarten, Stackverwaltung, 
Adressverwaltung, Entscheidungen, Schleifenkonstrukte, Unter- 
programme, numerierte "Iraps, Bedienen von Interfacebausteinen, 
Texterkennung, Textverarbeitung, Tastaturdekodierung, memory dumps, 
Floppy-Tests/Funktionen, serielle RS232-Datenübertragung usw. 


Entwickelt Hilfsprogramme: 


BIOS-Toolbox; GEMDOS-Toolkits; ein Editor; ein Parser; Arbeiten mit Toolkits. 


Die Programme des Buchs sind auf Diskette vom Autor erhältlich. 


Ein Fachtext in klarer Sprache mit leserfreundlichem Druckbild, guter Bilddokumentation und 


umfangreichen Listings von Musterprogrammen (auf Diskette beim Autor erhältlich). 


ca. 300 Seiten, Softcover, DM 59,- 


= a Ausser 


Fam: 


Weitere te-wi-Bücher 


NEU 


DAS „C“-BUCH . Birüttnepadrh 


(Herold /Unger) 

Ein „C“Kurs der Industrie. Für sämtliche 
C-Konstrukte. Über 100 Beispiele. 
Anspruchsvoll in Text/Bildmaterial, 

ca. 500 Seiten, Softcover, DM 79,- 


UNIX 

(Yates/Thomas) US-Standardwerk der 
UNIX-Promoterin Yates. Eine sachkundige 
Übersicht und Einführung in die Anwen. 
dung, 550 Seiten, Softcover, DM 79,- 


LOGO - 

Jeder kann programmieren 
(Daniel Watt) 

Buch des Jahres in den USA. 
Best-rezensiert von Pädagogen und 
deutschen Kultusministerien. Ein 
bildreicher Führer durch u.a. 
ATART!s LOGO. Von Papert’s 
Schüler D. Watt. 

384 Seiten, Ad, DM 59,- 


UMWELTDYNAMIK 


Ä | 30 Programme für kybernetische 
M68000 FAMILIE, 2 Bd. SMWELTDYNANIK Umwelterfahrungen auf allen 


Hilf/Nausch, ges. 968 Seiten = wo BASIC-Rechnern. Das Buch enthält 


Einzige Motorola-authentische Darstellung 
von CPU-68000-Architektur, Programmie- 
rung, Systemaufbauten. Behandelt alle 
68000-Bausteine sowie 68020, 68881. 
Bd 1, Grundlagen + Architektur, 568 Sei- 
ten, DM 79,- 
Bd 2, Anwendung und Bausteine, 

| 400 Seiten, DM 69,- 


Mein ATARI Computer 

Best-rezensiertes Standardwerk deutscher 

ATARI-User-Groups. Kompakte ATAR! 400-/ 

800-System/Peripheriebeschreibung. 
De Von Poole/McNiff/Cook, 500 Seiten, Soft- 
yalanrgnder cover, DM 59,- 


Sprühende Ideen mit ATARI-GRAPHIK 
Fröhlicher Lehrstoff in Geometrie und Farben- 
lehre eines amerikanischen Lehrers mit 
ATARI Graphikmöglichkeiten. 

Von Tom Rowley, 224 Seiten, Softcover, 

DM 49,- 


Noch im Programm: Einführung in die Mikrocomputer-Technik, DM 66,- 


Computer für Kinder, ATARI, DM 29,80 


beides: Ein Programmsystem zur 
Simulation eigener Problemformu- 
lierungen und 29 kommentierte 
Modellbeispiele wie Baumsterben, 
Heizungsbedart, Nahrungsketten 
usw. Prospekt anfordern. 

Von Hartmut Bossel, 480 Seiten, 
Softcover, DM 59, - 


6502 - Programmieren in Assembler 
Dieses Buch behandelt ausführlich die 
Assemblersprachen-Programmierung für 
den weitverbreiteten Mikroprozessor 6502. 
Lance Leventhal, 704 Seiten, Softcover, 
DM 59,- 
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String-Catalog 





DOS-3.3-Dateinamen im String-Array 


von Waldemar Kupisch 


Will man ein Applesoft-Programm, das mit 
vielen Dateien arbeiten muß, halbwegs 
komfortabel gestalten, so steht man nicht 
selten vor dem Problem, die Namen der 
einzelnen DOS-3.3-Files zur weiteren Be- 
arbeitung in Strings einzulesen. (Unter 
ProDOS ist dies im Gegensatz zu DOS 3.3 
denkbar einfach. Vgl. „CAT.ARRAY“ in 
Peeker, 4/85, S. 44.) Bleibt man beim 
Applesoft, dann kommt man nicht umhin, 
mit vielen Peeks und Pokes und RWTS- 
Aufrufen und noch viel mehr String-Ope- 
rationen die Filenamen mühsam aus den 
Catalog-Sektoren auszulesen. Wer das 
einmal ausprobiert hat, kann verstehen, 
warum ich versucht habe, dieses Problem 
auf Assemblerebene zu lösen. Herausge- 
kommen ist dabei ein kurzes und dennoch 
effizientes, vollkommen relozierbares Ma- 
schinenprogramm, das folgende Kriterien 
erfüllt: 


1. Es ist relozierbar und kann somit an 
jedem beliebigen Speicherplatz abgelegt 
werden. Außer bei Systemaufrufen wer- 
den keine absoluten Befehle verwendet. 
(Für das Programmlisting STRCAT wurde 
Origin $8000 gewählt.) 

2. Es schreibt die Filenamen in ein vorher 
vom Applesoft-Programm dimensioniertes 
Stringfeld. Um Verträglichkeit mit dem Ap- 
plesoft-Programm zu sichern, werden In- 
terpreter-Routinen für die Stringpool-Ver- 
waltung benutzt. Die vom Maschinenpro- 
gramm erzeugten Strings werden damit 
vollständig in die Applesoft-Umgebung 
eingebunden. 

3. Das Programm kann mit einem CALL- 
Befehl aufgerufen werden. Damit werden 
die anderen Möglichkeiten wie USR und 
Ampersand (&) für den Programmierer 
nicht eingeschränkt. 


12 


STRCAT.DEMO1 


108 
118 
126 
138 


ANFANG = 32768: REM $8#99 

HIMEM: ANFANG 

PRINT CHR$ (4) ;"BLOAD STRCAT, A";ANFANG 
DIM CA$(185): REM FELD FUER DIE FILENAMEN 


14® Al = PEEK (ANFANG + 179):A2 = PEEK (ANFANG + 171): REM ALTE WERTE MERKEN 


158 


16® 
178 


188 IF PEEK (8) = Ö THEN 88: REM WENN ANZAHL FILES =® DANN KEINE ZUWEISUNG 
FOR I = ® TO PEEK (8) - 1: PRINT CA$(I): NEXT : REM FILENAMEN LISTEN 


198 


POKE ANFANG + 170,234: POKE ANFANG + 171,234: REM BRANCHBEFEHL 


WIRD DURCH NOPS UEBERSCHRIEBEN. DAMIT KOENNEN ALLE FILES EINGELESEN WERDEN 


CALL ANFANG 
POKE ANFANG + 17ß,Al: POKE ANFANG + 171,A2 


STRCAT.DEMO2 


108 
118 
120 
139 


ANFANG = 32768: REM $8P9® 

HIMEM: ANFANG 

PRINT CHR$ (4) ;"BLOAD STRCAT, A"; ANFANG 
DIM CA$(195): REM FELD FUER DIE FILENAMEN 


148 DIM C${1®5,2): REM FELD FUER NACH FILETYPE SORTIERTE FILENAMEN 
15® DIM L(2): REM ANZAHL DER EINZELNEN FILETYPEN 


166 
176 
188 


508 
518 
529 
550 
549 


POKE ANFANG + 169,90: REM TEXTFILES 

CALL ANFANG: REM MASCHINENPROGRAMM AUFRUFEN 
L(ß) = PEEK (8} 

IF L(8) = ® THEN 230: REM UM DIE ERSTE ZUWEISUNG IN DER FOLGENDEN 
FOR-NEXT SCHLEIFE ZU VERMEIDEN 

FOR I=d TO Lid) - 1 

C$(1,®) = CA$(I): REM TEXTFILES EINTRAGEN 

NEXT 

POKE ANFANG + 169,2: REM APPLESOFT FILES 

CALL ANFANG 

L{1l} = PEEK (8) 

IF L{l} = ® THEN 308 

FOR I=8 TO Lil) - 1 

C$(I,ı1) = CA$(I): REM APPLESOFT FILES EINTRAGEN 
NEXT 

POKE ANFANG + 169,4: REM BINARY FILES 

CALL ANFANG 

L(2) = PEEK (B) 

IF L{2) = $ THEN 376 

FOR Ii=9 TO Li2) - 1 

C$(I,2) = CA$(I): REM BINARY FILES EINTRAGEN 
NEXT 

HOME 

HTAB 18: VTAB 8: PRINT "{ 1 }) TEXTFILES" 

HTAB 18: VTAB 16: PRINT "( 2 ) APPLESOFT FILES" 
HTAB 19: VTAB 12: PRINT "( 3 ) BINARY FILES" 
HTAB 19: VTAB 14: PRINT "( 4 ) ENDE" 

HTAB 16: VTAB 17: PRINT "WELCHEN TYP "; 

GET A$ 

IF A$ < "1" OR A$ > "4" THEN 439: REM EINGABEKONTROLLE 
A = VAL (A$) 

HOME: 

IF A= 4 THEN 549 

IF L{A - 1) = ß THEN 528 

FOR I=9 TO L{A-|1) 

PRINT C$(L,A- ]) 

NEXT : REM FILENAMEN LISTEN 

VTAB 24: PRINT "BITTE TASTE DRUECKEN ";: GET A$ 
GOTO 370 

END 
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1. Variablenverwaltung 


Um das Programm zu verstehen, muß STRCAT 


man wissen, wie der Applesoft-Interpreter 
die Variablen anlegt. Grundsätzlich wer- a RS 


den alle Variablen in dem Speicherbereich 


abgelegt, der durch die Zeropage-Pointer 1 ORG $8009 
2 * 
$0069-$006A (LOMEM) und $0073- ee 
$0074 (HIMEM) begrenzt wird. Als erstes A o—— 
r i r u 5 * 
werden die einfachen Variablen von LO ee EEE 
MEM ab aufwärts angelegt. Darauf folgen 7 
die Feldvariablen, deren Bereich durch die : * Dieses ee ne 2 ee 
Bi * ZUVO von elınem -FrTüö amm ımenslöonle ın 
Pointer $006B-$006C (Anfang Array- ea u a 
Space) und $006D-$006E (Ende Array- 11 x en ist u ANFANG+169, TYPE möglich. 
. a . 12 x TYPE = (®,1,2,4,8,16) für (T,I,A,B,S,R) TYPE FILES. 
Space + 1) bestimmt ist. Strings werden von 153 x T Type Files sind voreingestellt. (s. Zeile 147) 
HIMEM abwärts bis zum Ende des Array- 14 x Mit POKE ANFANG+179,234 : POKE ANFANG+171,234 :REM NOP 
Speichers angelegt. Wird ein String neu se 
definiert, so weist eine Interpreter-Routine | 17 % Das Programm benötigt Applesoft im ROM und 48K-DOS 3.3 
diesem String einen neuen Platz zu und > En er Fe 
reduziert gleichzeitig den Pointer $006F- 28 BASIC EQU $EOd3 "BASIC-Warnstart 
$0070 (Anfang String-Space). Der alte 21 PRERR EQU $FF2D ;Print "ERR" 
Stringinhalt bleibt also im Speicher stehen. = Aus ee men 
So werden mit der Zeit immer mehr 24 * SEC : nächster Catsektor 
Inn. n 25  GETIOB EQU $3E3 ;‚IO-Block-Adresse holen 
String Leichen geschaffen. wenn der 26 BUFFER EQU $FA ;Pointer: 256-Byte-Sektorpuffer 
Pointer $006F-$0070 das Ende des Array- 27 DET EQU SFC "Pointer auf DET 
Speichers erreicht, dann wird der String- = Se = oe 
h “ ” i i COUNT ‚Zähler 
speicher aufgeräumt. Das übernimmt die 38 DIROFF EQU $88B ‚Offset zum ersten Catalogeintrag 
sog. Garbage-Collection-Routine im Inter- 31 FILEOFF EQU $23 ‚Offset zum folg. Catalogeintrag 
preter. Bei einer großen Anzahl von = , A 
Strings braucht diese Routine mehrere Mi- 34 Output: A,X,Y = neuer Deskriptor 
N : # 35 BEGINAR EQU $6B ;Pointer Anfang Array-Space 
nuten. (vgl. aber hierzu die schnelle GC 36 ENDAR EQU $6D ‚Pointer Ende Array-Space+l 
Routine in Peeker, Heft 1/85.) 37 BEGINST EQU $71 ‚Pointer auf Stringposition 
38 ARHEAD EQU 594 ;Pointer Feldvar. Kopf 
Pr er 39  LENGTH EQU 8rF ‚Lä d inz. Feld 
In früheren Peeker-Beiträgen wurde 4 DESCR En = nk 
schon auf die Speicherbelegung der Varia- 4 * 
blen eingegangen. Hier nun nochmals ei- 2: i Feldvar CA$() suchen und DESCR bestimmen 
ne Zusammenfassung: södh: AB 6B AA LDA BEGINAR :Feldanfang vorbereiten 
8002: A6 6C 45 LDX BEGINAR+1 
804: 85 94 46 STA ARHEAD ‚Pointer auf Feldvar Kopf 
Einfache Variablen belegen immer 7 sßß6: 86 95 47 STX ARHEAD+l ;auf Feldanfang setzen 
Bytes. Die ersten beiden Bytes enthalten LE DERREINE a ann. une 
den Variablennamen. Die Bit 7 der Na- S6BA: 85 BF 59 STA LENGTH ‚merken 
mensbytes stellen in codierter Form den a . = a ne 
Variablentyp dar. Bei Real-Variablen sind 8B1B: E4 6E 53 CPX ENDARtl ;Feldende erreicht? 
beide 0, bei Integer-Variablen sind beide De Bee le 
1. Stri hab 4 t Byte. Bit 8814: C5 6D 55 CMP _ ENDAR ;LByte vergleichen 
. Stringnamen haben im ersten Byte, Bi 8dl6: DE B2 56 BNE  CA2 
‘= 0 und im zweiten Byte, Bit/=1. Die 8ß18: FO 3E 57 BEQ ERROR ;‚Feldende erreicht -> ERROR 
restlichen Bytes enthalten den Variablen | She zese 5 © Su Dam,  iDeskripter Pointer auf 
Wert: SPIE: AD 09 6d LDY #$06 
er | 8628: Bl 5E 61 LDA (DESCR),Y ;1. Namensbyte vergl. 
Real: 1 Byte Exponent und 4 Bytes für ee = ee ee 
Mantisse. | 8024: DB 99 63 BNE CA3 ‚nicht gleich -> nächste Feldvar 
Integer: Low-Byte und High-Byte für Zahl en = INY 
und 3 Bytes N (unbenutzt) El Bl 5E 65 LDA (DESCR),Y ;2. Namensbyte vergl. 
Fu ü 86293: C9 Cl 66 CMP #"A" ‚mit "A MSB=1 
String: 3 Bytes Stringdeskriptor (Stringlän- 8ß2B: FO 15 67 BEQ CA4 ;CA$ gefunden -> CA4 
ge, Pointer auf String) und 2 Bytes = 0 BB2D: DS Bl = ’ BNE 645 ‚nächste Feldyar 
(unbenutzt). SB2F: CB 78 CA3 INY 
Feld-Variablen sind wie folgt aufgebaut: ae n es 24 a m saulznachztonZrelayarZRop! 
Variablenname wie oben. 8632: Bl 5E 73 LDA (DESCR},Y ;Länge der Feldvar 
Länge der gesamten Feld-Variablen mit | 8034: 65 94 74 ADC ARHEAD :zı Pointer addieren 
L B iah-B E036: 85 94 75 STA ARHEAD 
ow-Byle, Hig z yte. | 8038: CB 76 INY 
Anzahl der Dimensionen in einem Byte, ee Bl 5E 77 LDA ({DESCR),Y ;High-Bytes addieren 
. 803B: 65 95 78 ADC ARHEAD+1 
also maximal 252. 8d3D: 85 95 79 STA ARHBAD+1 
Größe des letzen Index mit High-Byte, SP3F: 18 80 CLC 
Low-Byte! 8BAB: 9B CA E BCC CAl ‚unbedingter Sprung 
: * 
.. USW. bis 
Größe des ersten Index mit High-Byte, 
Low-Byte. = = == en Bi 
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Elemente der Reihe nach (0,0...) 
ed. lenmklenee 

Die Länge der Elemente beträgt 5, 2, 3 bei 
Real-, Integer- und String-Variablen. 
Einfache Integer-Variablen sparen also 
keinen Speicherplatz, sondern nur In- 


teger-Feld-Variablen! 


2. System-Routinen 


Bevor wir zur Programmbeschreibung 
übergehen, müssen wir noch einige DOS- 
und Interpreter-Routinen besprechen. 
Ausführlichere Informationen enthalten (1) 
und (2). 

DOS-Routine READDIR ($BO11): Im 
DOS 3.3 gibt es ein Unterprogramm zum 
Einlesen der Catalog-Sektoren. Springt 
man in dieses Unterprogramm mit ge- 
löschtem Carry (CLC), dann holt sich das 
Programm die Track- und Sektornummer 
des ersten Catalog-Sektors aus der VIOC 
(Volume Table of Contents). Geschieht 
der Einsprung mit gesetztem Carry (SEC), 
dann holt sich das Programm die Track- 
und Sektornummer des nächsten Catalog- 
Sektors aus dem vorher eingelesenen Ca- 
talog-Sektor und liest diesen in den DOS- 
Puffer. Vorher wird die Pufferadresse in 
die RWTS-Parameterliste eingetragen. 
Das Programm bricht mit Errorcode (End 
of Directory) ab, wenn die Tracknummer 
des nächsten Sektors 0 ist. 

DOS-Routine GETIOB ($03E3): Mit ei- 
nem JSR GETIOB erhält man im Y-Regi- 
ster und im Akkumulator die Adresse des 
/O-Control-Blocks (IOB). Damit erfährt 
man die Adresse des 256 Byte langen 
Sektorpuffers und kann auf den Inhalt des 
eingelesenen Sektors zugreifen. 
Interpreter-Routine GETSP ($E452): Die- 
ses Unterprogramm schafft Platz für einen 
neuen String. Beim Einsprung muß im Ak- 
kumulator die Stringlänge stehen. Dabei 
wird geprüft, ob noch genügend Platz für 
den String im Stringpool vorhanden ist, 
und gegebenenfalls die Garbage-Collec- 
tion aufgerufen. Ist danach nicht genügend 
Platz vorhanden, wird die Programmaus- 
führung mit „Out of Memory“ abgebro- 
chen. Andernfalls kehrt das Unterpro- 
gramm mit dem neuen Stringdeskriptor in 
Akkumulator, X- und Y-Register (A: Län- 
ge, X: Low-Byte, Y: High-Byte) zum aufru- 
fenden Programm zurück. 


3. Programmablauf 


Schaut man das Programm STRCAT zum 
ersten Male an, so drängt sich der Ein- 
druck auf, als wenn hier ziellos in der 
Gegend „herumverzweigt“ würde. Die 
Ursache dafür liegt in der begrenzien Ver- 
zweigungsfähigkeit der relativen Branch- 
befehle des 6502 (-126 bis +129 Bytes 
um den Branch herum). Bei relokativer = 
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FD 
FD 
FD 
FD 
RR 


Eß 


* 
ERROR 


* 
ENDE 
* 


INY 
INY 
INY 
LDA 
CMP 
BNE 
ASL 
ADC 
ADC 
STA 
BCE 
INC 
BNE 


LDA 
JSR 
LDA 
JSR 
LDA 
JSR 
LDA 
JSR 
JSR 
PLA 
PLA 
JMP 


RTS 


(DESCR},Y 
#501 
ERROR 


+$05 
DESCR 
DESCR 
DIR 
DESCR+1 
DIR 


u gu 
COUT 
zuan 
COUT 
zuge 
COUT 
gu_n 
COUT 
PRERR 


BASIC 


:Pointer 


;Anz Dime 


> 
’.w 
4 
| 4 
F 


auf Deskr. von CA$(Pß) 


nsionen Lesen 


;Vergl. mit 1 
=> ERROR falls <> 1 


*2 


;+5 (Carry = ß) 
:= Pointer auf Deskrip.von CA$(P) 


‚High-Byte inkrementieren 
‚weiter bei DIR 


;‚Fehlerbehandlung 
;Print "CA$-ERR" 


;Pop Returnadresse 


BASIC Warnstart | 


* Catalog auslesen und Filenamen übertragen 


* 
DIR 


DIR1 


FILE 


»Eintrag 


BEQ 


+09 
COUNT 
GETIOB 
DCT 
DCT+1 


+00 
FCOUNT 
READDIR 


#508 
(DCT),Y 
#+DIROFF 
BUFFER 


{DET) ,Y 
+500 
BUFFER+1 


+00 


(BUFFER) ,Y 


ENDE 


-> ENDE 


CMP 
BEQ 
INY 
INY 
LDA 
AND 
CMP 


BNE 


#Hier NOPs, 


GO 


* 
NEXTSEC 


* 
WEITER 


WEITER1 


Set 
BCS 


INC 
CLCG 


#$FF 
WEITER 


(BUFFER),Y 


#+$7F 
#500 


WEITER 


+$29 


(BUFFER) ,Y 


#$Ad 
LESEN 


GO 


DIRI 


FCOUNT 
FCOUNT 
#507 
NEXTSEC 


BUFFER 
+FILEOFF 
BUFFER 
WEITERI 
BUFFER+1 


‚Zähler initialisieren 
»IO-BLock-Adresse holen 


‚und ablegen 


‚vorberei 


ten zum l. Catalogsektor 


‚Filecount initialisieren 
‚Catalogsektor lesen 


:Pufferadresse holen 


‚und Offset addieren 


;High-Byte addieren 


‚Check, ob gültiger Eintrag 


‚wenn ®, 


‘:Deleted? 


dann kein weiterer 


‚Ja -> nächster Eintrag 


‚File-Typ 


e Byte 


‚Clear MSB (Lock Bit) 
‚Check, ob Textfile 
»Hier kann Type geändert werden 


‚wenn nic 


falls alle Files 


ht dann weiter 


:Y auf letztes Namensbyte 


‚Space? 


‚kein Space dann einlesen 
‚sonst vorhergehendes Zeich. 


‚prüfen 


‚vorber. 


;Filecoun 


‚schon 7. 


zum nächsten Catsektor 


t erhöhen 


ter Eintrag? 


:dann nächsten Sektor einlesen 


‚Fileoffs 


et zu Puffer addieren 
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speicherplatzunabhängiger Programmie- 
rung ist man aber auf diese relativen Ver- 
zweigungsmöglichkeiten angewiesen. Nur ne ee 

festliegende Routinen im DOS bzw. im 178 & Hier werden die Filenamen in das Stringfeld eingelesen 
Interpreter können mit absolut adressier- * 
ten Befehlen aufgerufen werden. -_.n 
Im ersten Teil des Programms wird die 
Adresse des zuvor vom Applesoft-Pro- 
gramm dimensionierten Stringfeldes 
CA$() gesucht. Wird das Stringfeld nicht 
gefunden, dann wird mit einer Fehlermel- 
dung die Programmausführung abgebro- 
chen und ein Warmstart durchgeführt. Das 
erfolgt auch, wenn CA$() mehrdimensio- 
nal angelegt worden ist. Im Erfolgsfalle 
wird der Pointer DESCR auf die Adresse 
des ersten Stringdeskriptors gerichtet. 
Anschließend werden der Filezähler auf O 
gesetzt, die Adresse des lOB eingelesen 
und abgelegt, der erste Catalog-Sektor 
eingelesen und die Adresse des 256- 
Byte-Sektorpuffers im IOB ermittelt. Zu 
der Pufferadresse wird als nächstes ein 
Offset addiert, um den Pointer auf den 
ersten Catalog-Eintrag zu richten. 


:Y sichern 


;=-2 = Länge 


‚vergleiche mit alter Länge 
‚wenn gleich oder kleiner dann 
‚keinen neuen Platz schaffen 
‚Platz für String schaffen 
;Akku sichern 


+$02 


(DESCR), ;Deskriptor übertragen 


(DESCR), 


{DESCR}, 


;Y zurückholen 

;Y = Länge also > 

;weiter bei LOOP 

‚Länge in Deskriptor eintragen 


LOOP 
194 LESEN1 (DESCR), 
195 
196 {DESCR), 


BEGINST 


‚alten Wert aus Deskriptor 
‚in Stringposition 
‚übertragen 

(DESCR),Y 


BEGINST+l ;Stringpointer setzen 


In den ersten beiden Bytes eines Catalog- 
Eintrags stehen die Track- und Sektor- 
nummer des ersten TSL-Sektors des Files 
(TSL = Track Sector List). Ist die Track- 
nummer 0, dann existieren keine weiteren 
Einträge im Directory mehr. Ist die Track- 
nummer $FF, dann ist dieser File gelöscht. 


(BUFFER),Y ;Filenamen übertragen 

‚Achtung: Namensanfang 

;= BUFFER + 3 

‚also Y-3 

#$7F ;High-Bit löschen 
(BEGINST),Y;und in Stringbereich übertragen 


‚= Y-1 insgesamt 


. +02 ;Ende Filename? 
Im dritten Byte steht die Information über LOOP ;nein, dann nächst. Zeichen 
: r : COUNT ‚Filezähler erhöhen 
den Filetyp. Genaueres darüber findet ee 
man im DOS-Handbuch und in (2). An 215 & Descriptor setzen 
dieser Stelle wird entschieden, ob der 16 LDA LENGTH NEE a 
{ i : u. ; : 217 ADC DESCR ‚zu DESCR addieren 
Filename in das Stringfeld übertragen wird 218 STA DESCR 
oder der nächste Catalog-Eintrag unter- ee BCC ne 
: : ING E + 
sucht werden soll. Durch einen Poke-Be- 22] en -DESCRHL immer > 6 


fehl, der das Argument des CMP-Befehls 
ändert (s. Listing 9, Zeile 144), kann der 
Filetyp verändert werden. Überschreibt 
man den nachfolgenden Branch (BNE) mit 
NOPs, dann werden alle Filenamen in das 
Stringfeld übertragen. Im folgenden wird 
der Zähler FCOUNT erhöht und gegebe- 
nenfalls der nächste Catalog-Sektor ein- 
gelesen. Die Pufferadresse zum nächsten 
Catalog-Eintrag wird errechnet, und das 
Programm verzweigt zum Abarbeitungs- 
teil. Das Spiel wiederholt sich so lange, bis 
eine Tracknummer O gefunden wird, d.h. 
kein weiterer Eintrag mehr existiert. 


Beim Übertragen des Filenamens wird zu- 
nächst überprüft, ob er kürzer oder 
ebensolang ist wie derjenige Name, der 
beim letzten Programmaufruf an dieser 
Stelle eingetragen wurde. Ist dies der Fall, 
dann wird der gleiche Speicherplatz für 
den neuen Namen benutzt. Damit wird 
verhindert, daß bei mehrfachem Auslesen 
des gleichen Catalogs ständig neuer 
Stringplatz geschaffen wird und es ent- 
sprechend früher zur Garbage-Collection 
kommt. Ferner muß beachtet werden, daß 
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der Filename erst bei (BUFFER)+3 be- 
ginnt. Das wird bei der Übertragung des 
Filenamens berücksichtigt. 


4. Applesoft-Demos 


Die beiden kurzen Demoprogramme 
STRCAT.DEMO1 und STRCAT.DEMO2 
erklären sich selbst und sollen lediglich 
zeigen, wie das Maschinenprogramm vom 
Applesoft-Programm modifiziert und auf- 
gerufen wird. 


Literaturhinweise 


(1) Matthias Buck: Apple II ROM-Listing, 
Aachen 1984 

(2) Don Worth, Pieter Lechner: Beneath 
Apple DOS, Reseda 1981 





Kurzhinweise 


1. Zweck: 

Einlesen von Catalog-Dateinamen in 
String-Array unter DOS 3.3 

2. Konfiguration: 

II+/e/c; 48K-DOS 3.3 oder Diversi-DOS 
2C (kein in die LO geschobenes DOS!). 
3. Test: 

RUN STRCAT.DEMO1 
DEMO2 

4. Sammeldisk: 
T.STRCAT 

STRCAT 
STRCAT.DEMO1 
STRCAT.DEMO?2 

5. Sonstiges: STRCAT ist relokativ und 
kann deshalb an eine andere Stelle als 
$8000 eingeladen werden. 


oder STRCAT. 
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Teil 8: Eine Utility-Unit mit schnellen 
und nützlichen Prozeduren 


von Dieter Geiß 


Nach der vielen „Theorie“ der letzten Tei- 
le soll hier wieder einmal die praktische 
Seite zum Zuge kommen. Die nachfol- 
gend vorgestellte Unit beinhaltet 16 Pro- 
zeduren und Funktionen, die in vielen Pro- 
grammen nützlich eingesetzt werden kön- 
nen. Bei der Implementierung kam es mir 
vor allem auf Geschwindigkeit und Einzig- 
artigkeit an. Daher sind eine Reihe der 
Prozeduren in Assembler geschrieben. 
Wiederum andere greifen auf Variablen 
des Pascalsystems zu, die gelesen oder 
verändert werden können. 


1. Implementierung 


Wer die Unit benutzen möchte, muß fol- 
gende Schritte beachten: 

1. Mit Hilfe von GETDOS den File UTILI- 
TY.TEXT, den File UTIL.ASS.TEXT und 
den File DEMO.TEXT auf eine Pascal-Dis- 
kette überspielen. 

2 UTIEITSTERT ZULUTIEITT CODE eom- 
pilieren. 
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3. UIIMASSMIEXT zu UTILASS.CODE 
assemblieren. 

4. Linken der beiden Files: Der Host-File 
UTILITY.CODE wird mit dem Lib-File UTI- 
L.ASS.CODE gelinkt. Als Output-File gibt 
man z.B. „UTIL.LIB.“ oder auch „SY- 
STEM.LIBRARY.“ an, wenn dieser nicht 
schon auf der Diskette existiert und damit 
zerstört werden könnte. 


Achtung: Der File UTIL.LIB enthält aber 
nun nicht nur das Codesegment UTILITY, 
sondern auch das Segment PASCALSY- 
STEM, welches als Übersetzungsrahmen 
integriert werden mußte. Will man nun die 
Utility-Unit in seine SYSTEM.LIBRARY in- 
tegrieren, so startet man das Programm 
LIBRARY.CODE und gibt als Output Code 
File und als Link Code File jeweils SY- 
STEM.LIBRARY an. Nachdem alle Seg- 
mente mit Hilfe des „=" Befehls aus der 
alten SYSTEM.LIBRARY in die neue ko- 
piert wurden, holt man als neuen Link File 
UTILITY.LIB, von dem man nur Segment 
27, also nicht Segment 0, in einen freien 


Slot kopiert. Dann kann man das Library- 
Programm verlassen. 

Für das kurze Demoprogramm zum Te- 
sten der Unit gehen wir davon aus, daß die 
Schritte 1 bis 4 durchgeführt wurden und 
der Name der fertig gelinkten Unit SY- 
STEM.LIBRARY heißt. Dann kann das De- 
moprogramm DEMO.TEXT compiliert und 
ausgeführt werden. 

Die Tricks, die in der Unit angewendet 
werden, wurden schon in vorausgegange- 
nen Teilen erklärt. Aus Teil 4 sind die 
Wirkungen der beiden Compiler-Optionen 
{$U-} und {$E+} bekannt. Mit Hilfe der 
ersten kann man Systemprogramme oder 
-units übersetzen lassen; die zweite er- 
laubt private Files in Units. Die Defini- 
tionen der Konstanten und Typen für Di- 
rectory und Files wurden im Artikel „Pas- 
cal Directory unter der Lupe” in Heft 1/ 
1985 bzw. im Teil 6 dieser Serie dargelegt. 
Auf sie muß deshalb nicht näher eingege- 
gangen werden, so daß nur noch die Wir- 
kung der einzelnen Prozeduren erklärt 
werden soll. 
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2, Die Funktionen und Prozeduren 


Funktion Addr 

Um die Adresse einer beliebigen Variablen 
zu erhalten, ruft man die Funktion Addr 
auf. Sie liefert einen Integer-Wert, der als 
Zeiger (Adresse) der an sie übergebenen 
Variablen dient. Das Beispiel zur Prozedur 
Append zeigt einen Aufruf von Adar. 


Prozedur UpperChar 

Sie wandelt einen an sie übergebenen 
Kleinbuchstaben, der also im Bereich von 
„a bis „z“ liegt, in einen Großbuchstaben 
um. Andere Zeichen werden nicht verän- 
dert. 


Prozedur UpperString 

Sie wandelt einen gesamten String in 
Großbuchstaben um. Ist der aktuelle Para- 
meter ein String, der kürzer als 80 Zeichen 
ist, muß vor dem Aufruf die {$V-} Option 
eingeschaltet werden, da sonst der Fehler 
175 auftritt. 


Prozedur EatSpaces 

Sollen aus einem String alle Leer- und 
Ctrl-Zeichen entfernt werden, so benutzt 
man EatSpaces. Der erste Parameter ist 
ein String, für den das gleiche gilt wie bei 
der Prozedur UpperString. Als zweiter Pa- 
rameter entscheidet der Boolean-Wert 
„Upper“, ob gleichzeitig alle Buchstaben 
in Großschrift umgewandelt werden sol- 
len. Die Prozedur kann z.B. dazu benutzt 
werden, einen Filenamen zu analysieren, 
da das System beim Öffnen eines Files 
keine Leer- und Ctrl-Zeichen erlaubt. 
FatSpaces, UpperString, UpperChar und 
Adar sind in Assembler geschrieben und 
daher besonders effizient. 


Prozedur AddSuffix 

Sie hat zwei String-Parameter, der erste 
(S) ist sowohl Ein- als auch Ausgabe, der 
zweite (Suffix) eine Eingabe. An den 
String S wird der Parameter Suffix ange- 
hängt, wenn er nicht schon vorhanden ist. 
Zuvor werden aus beiden Eingabestrings 
alle Leer- und Otrl-Zeichen entfernt und 
die Strings in Großbuchstaben umgewan- 
delt. Ist danach der letzte Buchstabe in S 
ein Punkt, so wird die Anhängung des 
Suffixes unterbunden und der Punkt elimi- 
niert. Ist S leer, so wird ebenfalls kein 
Suffix angehängt. Fehlt hinter einer Gerä- 
tenummer der Doppelpunkt, so wird er 
angehängt. Eine vorhandene Längenspe- 
zifikation für einen File wird ebenfalls be- 
rücksichtigt. An einen Gerätenamen oder 
einen Diskettennamen wird kein Suffix an- 
gehängt. Die Prozedur wird vor allem für 
die Analyse von interaktiv erfragten Datei- 
oder Gerätenamen benutzt. Beispiele für 
alle Sonderfälle: 
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2 20 20 A 4 
| ä _ Sa | ä m ä iu äÄ 
‘ 1 Sy A a 

dä Is nu cd Lg l 

S != 'test.code'; 

Addsuifix [5, lgsoder); 

Ergebnis: S = 'TEST.CODE'; 

S := "FILE; '; 

AddSuffix (5, ';text'!); 

Ergebnis: S = 'FILE'; 

Si=! I 

Aadsuffix (5. "zROTO"): 


Ergebnis: = 5; 
Ss = '!#1'; 

AddSuffix (S, 
Ergebnis: S = 


! ter): 
El, 


S := 'BILD[16]; 
Addsuffix (S, 'FERAF'); 
Ergebnis: S = 'BILD.,GRAF[16]'; 


S = !Isysterm:'; 
AddSuffix (S, "ntext'!); 
Ergebnis: S = 'SYSTERM: ' 


Prozedur Append 

Wie schon in Teil 6 angekündigt, wird nun 
eine Prozedur vorgestellt, mit deren Hilfe 
man Daten an einen File anhängen kann. 
Die beiden Parameter sind Faddr, die 
Adresse eines Files, und Ftitle, d.h. der 
Name des Files, an den etwas angehängt 
werden soll. Das Problem, an einen vor- 
handenen Textfile etwas anzuhängen, 
kennen Sie sicher. Es gibt die zwei Mög- 
lichkeiten, den Textfile mit RESET oder 
REWRITE zu öffnen. Im ersten Fall steht 
der interne Filepointer auf dem ersten oder 
zweiten Zeichen des Textfiles, je nach- 
dem, ob es mit Hilfe eines Files vom Typ 
TEXT oder eines Files vom Typ INTERAC- 
TIVE geöffnet wurde. Im zweiten Fall ist 
der ursprüngliche File gar nicht mehr zu- 
greifbar. Würde man auf konventionelle 
Weise ein Append implementieren, so 
müßte die Routine etwa folgende Gestalt 
haben: 


reset (F, Name); 
while not eof {F) do get {F); 


Dabei ist „F” eine Filevariable und „Na- 
me“ der Filename. Bei einem langen File 
würde dieser Algorithmus in die Minuten, 
fast sogar in die Stunden gehen. Eine ein- 
fachere Möglichkeit ist das „Umbiegen“ 
der Filepointer, namentlich „Fnxtbik“ und 
„Fnxtbyte“. Der interne Aufbau von Files 
wurde schon in Teil 6 erklärt. Der Algorith- 
mus in der Prozedur Append baut darauf 
auf und muß noch einige Sonderfälle un- 
terscheiden, die im Kommentar angege- 
ben sind. 

Die Benutzung der Prozedur ist einfach. 
Statt eines RESET wird einfach ein „Ap- 
pend“ verwendet. Falls es einen Fehler 
beim Öffnen des Files gibt, kann dieser mit 
Hilfe der Funktion IORESULT abgefragt 
werden. Die folgenden Beispiele sind syn- 
taktisch nicht immer vollständig: 


var F : text; 
Append (Addr (F), 'TEXTFILE.TEXT'); 
it Iüresult => 9 then 

rewrite {F, 'TEXTFILE-TEXT'); 
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var F : file of integer; 

Append (Addr (F), '"INTEGERFILE'); 
var F : file; 

Append (Addr {F), 'BLOCKFILE'}; 


Wie man sieht, wird die Funktion „Addr“ 
benutzt, weil „Append“ kein Maschinen- 
programm Ist, an welches wie bei „Addr“ 
beliebige Parameter übergeben werden 
können. Ein Parameter von irgendeinem 
der vielen Filetypen wäre aber inkompati- 
bel zu allen anderen Filetypen, so daß 
lediglich die Adresse einer Filevariablen 
übergeben werden kann. Diese wird in der 
Prozedur in eine „Fibp“-Variable gescho- 
ben, die wiederum in einen beliebigen 
Filetyp umgewandelt wird, damit ein RE- 
SET ausgeführt werden kann. Statt „inter- 
active“ hätte man auch „text“ oder „file of 
Integer“ usw. schreiben können. 


Prozedur GetFileinfo 

An sie wird ebenfalls die Adresse eines 
Files übergeben. Als Ausgabe sind die vier 
wichtigen Parameter „Fisblkd“, „Funit“, 
„Fvid“ und „Ftid“ vorgesehen. Mit ihnen 
kann z.B. festgestellt werden, ob ein File 
ein Disk- oder ein Gerätefile ist, um damit 
schnell auf dieses Gerät etwas ausgeben 
zu können. Beispiel: 


var F : interactive; 
2 string; 
USW, 
readln (S); 
reset {F, 5): 
S := 'Hallo'; 
GetFileinfo (Addr {F}, 
Funit, Fvid, Ftid); 
if Pisblkd 
then write {F, S) 
else unitwrite (Funit, S [1], 
length (S}); 


Fisblkd, 


Prozedur ListDir 

In vielen Anwenderprogrammen und Edi- 
toren benötigt man bisweilen ein Inhalts- 
verzeichnis einer Diskette, An ”ListDir” 
übergibt man die Unitnummer eines Dis- 
Kettenlaufwerks, also 4, 5, 9, 10, 11 oder 
12, und eine Menge von Filesorten, die 
man aufgelistet haben möchte. Ist die Art 
"Untypedfile” oder ”Securedir” dabei, so 
handelt es sich um einen Diskettennamen, 
der dann auch ausgegeben wird. Beispiel: 


write ('Von welchem Laufwerk 
wollen Sie ein Textfile einlesen?'); 
reaaln (Unitnum]; 
LsıstDir (Unitnam, 
Textfile])}; 


[Untypedfile, 


Prozedur GetDate 
Sie holt das Systemdatum und speichert 
es im Parameter „Date“. 


Prozedur SetDate 
Ein Aufruf setzt das Systemdatum auf den 
Wert im Parameter „Date“. 
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Prozedur GetWork 

Die sechs Strings, die bei einem Aufruf 
von „GetWork“ übergeben werden, ent- 
halten die Namen der Workfiles (Text und 
Code) und die Diskettennamen, auf denen 
sie sich befinden. „Workvid“ und „Work- 
tid“ geben Disketten- und Filename des 
Workfiles an, wenn es mit dem Get-Befehl 
des Filers geholt wurde (ohne Suffix). 
„Symvid“ und „Symtid“ geben Disketten- 
und Filename des Textfiles an, das als 
Workfile definiert ist (mit Suffix, auch SY- 


STEM.WRK). „Codevid“ und „Codetid“ 


geben Disketten- und Filename des 
Codefiles an, der als Workfile definiert ist 
(mit Suffix, auch SYSTEM.WRK). Die Pro- 
zedur kann benutzt werden, um in einem 
Anwenderprogramm (z.B. einem Editor) 
den Workfile zu bevorzugen (Default 
Files). 


Prozedur GetErrorstuff 

Wenn jemand einen Editor schreiben und 
ihn nicht als Systemprogramm implemen- 
tieren will, so braucht er die Fehlerinforma- 
tion, die der Compiler dem Editor übergibt, 
also den Ort und die Art des Fehlers. Nur 
das Programm im File SYSTEM.EDITOR 
kann auf diese Fehler zugreifen, wenn 
man ein „E“ im Compiler eingibt, nach- 
dem ein Fehler aufgetreten ist. Wird der 
Editor nicht aufgerufen, so wird die Fehler- 
information immer wieder gelöscht. „Err- 
sym“ gibt die Byteposition des Fehlers 
innerhalb eines Blocks an, „Errbik“ gibt 
die Blocknummer des Fehlers im Textifile 
an, und „Errnum“ ist die Fehlernummer 
laut SYSTEM.SYNTAX. 


Prozedur GetPrefix 

Durch sie kann man das Präfix erfahren, 
das man im Filer mittels des Prefix-Befehls 
setzen kann. 


Prozedur SetPrefix 

Der String, der als Parameter nicht mehr 
als sieben Buchstaben umfassen darf, gibt 
das neue Präfix des Systems an. 


Prozedur GetEmptyheap 

Um die Variable „Emptyheap“ des Pascal- 
systems zu erhalten, ruft man GetEmpty- 
heap mit einem Integer-Parameter auf. Die 
Bedeutung und Anwendung dieser Proze- 
dur wird gleich bei „SetEmptyheap” er- 
klärt. 


Prozedur SetEmptyheap 

Die Variable „Emptyheap“ wird vom Pas- 
calsystem nach dem Initialisieren aller be- 
nötigten Variablen, die dynamischen Spei- 
cherplatz brauchen, auf den Wert des 
Heap-Pointers gesetzt. Dieser Wert be- 
zeichnet also den niedrigsten Wert, den 
der Heap-Pointer erhalten kann, ohne daß 
Variablen des Pascalsystems gelöscht 
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werden. Dieser Wert ist normalerweise 
2418 = $0972. Könnte man diesen Wert 
hochsetzen, dann würde man mit dieser 
Aktion Speicherplatz reservieren, auf den 
weder das Pascalsystem noch ein Anwen- 
derprogramm zugreifen kann — vorausge- 
setzt, es wendet keinen Trick an. Der 
Speicherplatz bleibt bis zum erneuten 
Booten oder bis zum Rücksetzen des Em- 
ptyheap reserviert. 

Da auf dem Heap dynamische Variablen 
und beim Öffnen von Files auch das Direc- 
tory liegen (Global Directory Pointer des 
Syscom = Gdirp), sollte man den „Empty- 
heap“ nur am Ende eines Programms ver- 
ändern, es sei denn, man benutzt weder 
Files noch dynamische Variablen. Dann 
müßte man den Heap-Pointer selbst hoch- 
setzen, wie das im Beispiel unten gezeigt 
wird. Das Pascalsystem führt nach Aus- 
führen eines Programms unter anderem 
ein 

release (Emptyheap) 

durch, welches den Heap-Pointer auf den 
neuen Wert setzt. Was man mit dem ge- 
wonnenen Speicherplatz anfängt, ist eine 
Frage, die der Programmierer zu beant- 
worten hat. Eine Möglichkeit wäre der An- 
schluß von Gerätetreibern ohne Benut- 
zung des von Apple an Software-Entwick- 
ler ausgegebenen speziellen SYSTEM. 
ATTACH-Programms, welches ebenfalls 
den „Emptyheap“ hochsetzt. Im folgen- 
den Beispiel werden 200 Bytes reserviert 
und auf Null gesetzt. 


var Heap : finteger; 
Emptyheap : integer; 
begin 


mark (Heap); {Setze Gdirp auf nil} 
GetEmptyheap (Emtptyheap); 
moveleft (Emptyheap, Heap, 

size_of {Heap)); 
fillchar (Heapt, 208, 9); 
Emptyheap := Emptyheap + 2Bß; 
SetEmptyheap (Emptyheap); 
moveleft (Emptyheap, Heap, 

size_of (Heap))}; 
release (Heap); 
{ab hier können wieder Files und 
dynamische Variablen benutzt werden} 

end. 


Soviel zur Utility-Unit, von der nach Bedarf 
auch einzelne Prozeduren ausgespart 
werden können. 

Das nächste Mal soll ein Patch vorgestellt 
werden, mit dessen Hilfe man zu praktisch 
jedem Zeitpunkt eine Hardcopy des Apple- 
Ile-80-Zeichen-Bildschirms erstellen 
Kann. 


Kurzhinweise 


1. Zweck: 

Hilfsroutinen für UCSD-Pascal 
2. Konfiguration: 

II+/e/c; UCSD-Pascal 1.1, 1.2 


3. Test: 

E(xecute DEMO. Näheres siehe Aufsatz 
A. Sammeldisk: 

KIN 2 RER 

UTILASS:- TEXT 

DEMO.TEXT 

5. Sonstiges: 

Die Dateien müssen zunächst mit GET- 
DOS von der DOS-3.3-Sammeldisk auf 
Ihre UCSD-Arbeitsdisk konvertiert und 
dann compiliert, assembliert und gelinkt 
werden. 


Softbreaker 1.0 


Eine softwaremäßige Interrupt-Utility 
für die Apple Ile 64K-Karte 


von U. Stiehl 


1984, Diskette und Manual, DM 20,— 
ISBN 3-7785-1022-3 


Produkt läuft aus. Ab 1. 6.86 Diskette mit 
Quellcode für nur noch DM 20,- 


Softbreaker ist ein Assemblerprogramm, mit 
dessen Hilfe Programme, die sich von der 
6AK-Karte (= Extended 80 Column Card für 
den Apple Ile) starten lassen, unterbrochen, 
gespeichert, geladen und exakt an der Stelle 
der Unterbrechung fortgeführt werden kön- 
nen. Dadurch ist es auch möglich, Siche- 
rungskopien von sogenannten kopierge- 
schützten Programmen herzustellen. 


Mit Softbreaker unterbrochene Programme 
werden komplett, d.h. die ganzen 64K ein- 
schließlich Language Card, innur ca. 11 Se- 
kunden auf einer formatierten Diskette gesi- 
chert. 


Gerätevoraussetzung: Apple lle mit 64K- 
Karte, nicht Ilc, nicht neue ROMs 


Hüthig Software Service, 
Postfach 102869, D-6900 Heidelberg 
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Public Domain Software 


Fr eiprogramme für Apple Liste sofort bestellen . . 10,- 


Software Preissenkung 


Wir stellen die Preise auf den Kopf 


Merlin Pro Macro Assembler ........ 


MEGABYTES 
las 
le), Gielo]:1= 


10/20 MByte Im Apple® //,//+ und //e 















= | 
I, Me Pi 
—_ MrW = Bu 4 
“ “2 
ı ih R 


nn m 


Mu En a er u a a rer re ne ai 







DE a ce a ac a a EEE TEE BR BEE EEE iin 


Chart'n Graph Toolbox N10,- Database Toolbox a 
Video Toolbox ........ N0,- Wizard’s Toolbox ..... 110,- 
Munch A Bug ......... 130,- Printographer ........ 130,- 












ZUSATZ-KARTEN: 

V-24-Schnittstelle 4400 199, ZBOMare een 98,- 

80-Zeichen-Karte m.Softswitch 236 - ei Kanone Kae ee Me 

Here I SR: + 49,- Accelerator 3,5 MHz ......... 950,- 

68000 Intemex .....::4++.. 1600,- PALKarte .::.222a22acaaaes 110,- 

FELDES RERPIEE „uam 239,- VEEEABB......uueeeeeeenn 312,- 

Es gehört inzwischen zum Standard für ein modernes Rechnersystem, mit einer Koppler dataphon m,FTZ....: 325- Z80BKartemitSoltware ...... 919,- 
Festplatte ausgerüstet zu sein, Erst dadurch erlangt der Rechner die Qualität in Centronics-Karte von Epson für Graphik... . 210,- für Text... .145,- 
der Datenverarbeitung, wie sie bei professionellen Anwendungen verlangt wird. Cantranies-Schnittstelle für 2 Drucker gleichzeitig NNTTIOHECRLFE RITTER 129,- 






Beim Apple wird einfach das Netzteil herausgenommen und dafür das 10/20 
MByte MEGA-CORE eingesetzt. Ab dann warten vier Betriebssysteme (DOS, 
CP/M, UCSD-Pascal, ProDOS) auf Ihr Kommando, Welcher Profirechner kann 
das schon? 


Fragen Sie uns nach Fakten, Preisen, Bezugsquellen und holen Sie sich für 
5,-- DM unsere Demo-Diskette, 


Ein Produkt von: FRANK & BRITTING 


Elektronik Entwicklungs GmbH 
Lange Straße 4, 7529 Forst 
Telefon: 07251 /103068-69 
Telex: 7822452 fub d 


Die Harddiskcontroller-Spezialisten 






Super-Eprommer 239.- 


| belegt keinen Slot, incl. Software für 2716-27128 


Floppy-Controller 


FDC4 für alle Laufwerke .....:.169,- Bausatz wielinks 2 oceacscccı. 159,- 
L.earplatine wie oben incl. Pomu.Epram ====22222 22 en 98,- 


Erphi-Controller _ 298,- 


Disketten 1D, 48 pi. ..... 108$t.29,- Disketten 2D, 48 1pi...... 1051, 29,- 


20 MB Harddisk 
(Festplattenlaufwerk) Incl. Software, Kabel, Gehäuse etc, 
ET a rain | fra a u2998,- 
TEAC 3%" Laufwerk FD35 FN_ 


Speicherkapazität 1 MB, (formatiert 640 KB} jetzt für nur ...... j 
ao Ken ü 


















Ausgabe und Ausgabe mi 


Eingabe mit TYPETERM® 
TYPETERM® JUNIOR 


im Slot Ihres 






im Slot Ihres 


APPLE IVlle | APPLE Illle 


Das bedeutet: Computer- 
textverarbeitung von der Pakeipreis DM 899,— 


Schreibmaschinentastatur! Schreibmaschine AX-10 mit 
Steckerfertig ohne Umbau. Umbau. Interface TYPETERM JUNIOR, 
| a steckfertig. 


Die neue CE-550! 
mit TYPETERM DM 1.398,— 


TYPETERM- DM 479,— 
Interface 

für alle BROTHER-Typenrad- 
schreibmaschinen ab AX-30 

bis EM-811 

(auch für Vorgängermodelle!) 
Paketpreis z.B.: 


EM-501 mit TYPETERM ........ DM 2136, | 
EM-511 mit TYPETERM ......... DM 2412,- | TYPETERM JUNIOR mit AX-10 — unser 


EM-701 mit TYPETERM ...... DM 2468,— besonders günstiges Gespann, ebenfalls 
steckfertig. Mit TYPETERM JUNIOR kann 

TYPETERM - ein starkes Interface für die AX-10 mehr, Sie wird zum vollwertigen 

starke Maschinen! Alle Cursor- und Ctl- Typenräddrucker für Ihren Apple: 

Befehle. 4k ROM auf der Karte für DOS, @ 3 verschiedene Schriftstärken 

PRODOS, CP/M, PASCAL. 2 Zeichensätze ® Automatisches Uhnterstreichen 

verfügbar z. B. deutsch u. ASCIl. Alle @ 2 Zeichensätze z.B. deutsch u. ASCI! 

Features: Hoch-/Tiefstellen, autom. Unter- ® 2 Zeichenabstände 

streichen, var, Zeichen und Zeilenabst,, | @2k ROM auf der Karte für Ausgabe unter 

autom, Papierzuführung usw, DOS, PRODOS, CP/M u. PASCAL. 

TYPETERM - ein Produkt von TYPETERM JUNIOR - ein Produkt von 


Imlerkom Kock & Mreches GmbH inferloom Kuck & Mreches GmbH 


‚ 3004 Isernhagen 4 osif., 3004 Isernhagen 4 
electronic Teen 05139-87393 electronic a 05139-877393 


TEAC 5%” Laufwerk 


SEEN EL a 








TEACFD55 AV 1 x40 Track . 365,- TEACFDS5BV2x40 Track .... 395,- 
TEAC FD 55 EV 1 x 50 Track Peer . 405,- TEACFDSSFV2xB0 Track .... 398,- 


PanasonicDrucke: 1592 ....... nu 1999,- 
1091 FE EPESESSHIEIE nur 1095,- 1092 AR nur 1195, EL 


Die Microfloppy mit Zukunft: 


Speicherkapazität: 2 x 1 MByte formatiert: ? x 
840 KByte, Anschlußfertig mit PROM-residenter 
Patchsoftware für CP/M 2.2, Apple DOS 3.3, Di- 
versiDOS 2-C, 4-C NEN Apple Pascal 
1.1, Pascal 1.2, Pro-DOS 1.0.1, 
1398, - 


1.1, 1.1.1 zum Prelsvon ....... - 






Die Zukunft heute 









Gesamt-Preisliste anfordern! 
Preise inclusive gesetzlicher Mehrwertsteuer. 
Händlerpreisliste bitte schriftlich anfordern! 


UEDING electronics 









BLLENNERTW re: DFÜ 02373/66877 
5750 Menden1 "bexirueding Tel. 02373/63159 
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UTILITY.TEXT 


{$U-} 
{$E+} 


{Uebersetzungsrahmen fuer die Unit-Utility, 14. Januar 1986} 


program Pascalsysten; 


const Maxunit = 23 
Maxdir = Ze 
Yidleng = 7: 
Tidleng = 15; 
Fblksize = Ser 
Dirblk = F 
Strleng = 89; 
EOL = 199 
mm 
type Unitnun = #,.,Maxunit; 
Dirrange = ß..Maxdir: 
Vid = string [Vidleng]; 
Tid = string [Tidleng]: 
Daterec = packed record. 
Month : 9..12; 
Day RU, 
Year : 9..1®0 


end; {Datereo} 


Filekind = (Untypedfile, Xdskfile, Codefile, Textfile, 
Infofile, Datafile, Graffile, Fotofile, 
Securedir, Subsvol); 


Direntry = packed record 
Dfirstblk : integer; 
Dlastblk integer; 
case Dfkind : Filekind of 
Securedir, 
| Untypedfile (Filler_l : 9..4895; 
| Dvid evid: 
Deovblk integer; 
Dnumfiles : Dirrange; 
Dloadtime integer; 
Dlastboot : Daterec); 
Adskfile, 
Codefile, 
Textfile, 
Infofile, 
Datafile, 
Graffile, 
Fotofile, 
Subsvol (Filler_2 : B..2047; 
Dstatus boolean; 
Dtid ‘ Did, 
| Dlastbyte l1..Fblksize; 
Daccess : Daterec) 


end; {Direntry} 


Directory = array [Dirrange] of Direntry; 
Windowp = fWindow; 
Window = packed array [9..ß] of char; 
Fibp = fFib; 
Fib = record 
Fwindow Windowp; 
Feof, 
Feoln boolean; 
Fstate (Fjandw, Fneedchar, Fgotchar); 
Frecsize integer; 
case Fisopen : boolean of 
true (Fisblkd boolean; 
Funit : Unitnum; 
Fvid Vld: 
Freptent, 
Fnxtblk, 
Fmaxblk integer; 
Fmodified : boolean; 
Fheader Direntry; 
case Fsoftbuf : boolean of 
true : (Fnxtbyte, 
Fmaxbyte : integer; 
Fbufchngd : boolean; 
Fbuffer : packed 
array [ß..Fblksize] of char)) 
end; {PFib} 
Inforec = record 
Fillerl : array [®..1] of integer; 
Errsym, 
Errblk, 
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Errnum 
Filler2 : array [9..4] of integer; 
Workvid, | 
Symvid, | 
Codevid : Vid; 
Worktid, 
Symtid, 
Codetid : Tid 

end; {Inforec} 


: integer; 











I — -- ——— ] 
var Fillerl : array |[9..6] of integer:; 
Userinfo » Inforec; 
Emnptyheap : integer; {normlerweise finteger} 
Filler2 : array [9..3] of integer; 
Syvid, 
Dkvid evid: 
TheDate : Daterec; 
(m 1) 
unit Utility; intrinsic code 27; 
interface 
type Filekind = (Untypedfile, Xdskfile, Codefile, Textfile, 
Infofile, Datafile, Graffile, Fotofile, 
Securedir, Subsvol); 
Kindset = set of Filekind; 
Dateresc = packed record 
Month : ®..12; 
Day ll; 
Year : 9..10® 
end; {Daterec} 
function Addr (var Anyvariable) integer; 
procedure UpperChar (var C char); 
procedure UpperString (var S : string); 
procedure EatSpaces (var S : string; Upper boolean); 
procedure AddSuffix (var S : string; Suffix : string); 
procedure Append (Faddr integer; Ftitle string}; 
procedure GetFileinfo { Faddr integer; 
var Fisblkd : boolean; 
var Funit integer; 
var Fvid string; 
var Ftid string); 
procedure ListDir (Funit integer; Kinds : Kindset); 
procedure GetDate (var Date : Daterec}; 
procedure SetDate {Date : Daterec}; 
procedure GetWork (var Workvid, Symvid, Codevid string; 
var Worktid, Symtid, Codetid : string); 
procedure GetErrorstuff (var Errsym, Errblk, Errnum ! integer); 
procedure GetPrefix (var Prefix : string); 
procedure SetPrefix (Prefix : string); 
procedure GetEnptyheap (var Heap : integer); 
procedure SetEmptyheap {Heap : integer); 
implementation 
mm ——— 
function Addr {(var Anyvariable) integer}; 
external; 
a 
procedure UpperChar {var C : char}; 
external; 
Te 
procedure UpperString {var S : string}; 
external; 
mm 1 
procedure EatSpaces [var S : string; Upper boolean}; ee 
external; 
m  — 1} 
procedure AddSuffix {var S : string; Suffix : string}; 
var Leng integer; 
Lpos : integer; 
Suffixleng : integer; 
Sizestr string; 
Tail ı string; 


begin {AddSsuffix} 
EatSpaces (S, true); 
EatSpaces (Suffix, true); 
Leng := length (S); 
Suffixleng := length (Suffix}; 
if Leng > Ö then 
begin 
if S [Leng] <> '.' 
then 
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begin 
if Leng < Strleng then 


it (5 JA] = ’F) and [pas T':", 5) =985) 
then insert (':', S, Leng + 1); 
Sizestr := '!; 
Tail = tt; 
Lpos '= pos ('[', 5); 
if Lpos > ® then 
begin 
Leng := length {S) - Lpos + ]; 


Sizestr := copy (S, Lpos, Leng)}; 
delete (S, Lpos, Leng) 
end; {if} 
Leng := length (S); 
if Leng > ® then 
if S [Leng] <> "':" then 
begin 
ıif Leng > Suffixleng then Tail := 
copy (S, Leng — Suffixleng + 1, Suffixleng); 
if (Tail <> Suffix) and (Leng + length (Sizestr} 
<= Strleng - Suffixleng) then 
begin 
moveleft (Suffix [1], S [Leng + 1], Suffixleng); 
S [d} := chr {Leng + Suffixleng) 
end {if} 
end; {if} 
S := concat (S, Sizestr) 
end {if} 
else S [ß] := chr (Leng - 1) 
end {if} 
end; ({AddSuffix} 


en ----------} 


procedure Append {Faddr : integer; Ftitle : string}; 
var Fileinfo 


AnyFile 


Fibp; 
interactive; 


begin {Append} 
moveleft (Faddr, Fileinfo, size_of (Fileinfo)); 
moveleft (Fileinfof, Anyfile, size_of (Fib)); 


if Fileinfof.Fisopen 
then reset (Anyfile) 
else reset (AnyFile, Ftitle); 


moveleft (AnvFile, Fileinfot. size_of {Fib)}; 
with Fileinfof, Fheader do 


if IOresult = ® then 
if Fisblkd then 
if Frecsize = Ö (ohne Fsoftbuf} 
then Fnxtblk := Fmaxblk 
else 
if (Dfirstblk = Dlastblk) or 
(ord {Dfkind) = ord (Textfile)) and (Fmaxblk = 2) 
then 
begin {Sonderfall fuer leere Files} 
Feof := false; 
Feoln := false 
end {if} 
else 
if Freosize = 1 {Textfile oder Interaktivfile} 
then 
begin 
unitread (Funit, Fbuffer, Fblksize, 
Dfirstblk + Fmaxblk - 2); 
Fnxtbyte := 512 + 
scan (-512, <> chr (ß), Fbuffer [511]); 
Fnxtblk := Fmaxblk - 1]; 
if Fnxtbyte = 512 then 
begin 
unitread (Funit, Fbuffer, Fblksize, 
Dfirstblk + Fmaxblk - 1); 
Fnxtbyte := 5l2 + 
scan (-512, <> chr ($), Fbuffer [511]); 
Fnxtblk := Fnxtblk +1 
end {if} 
end {if} 
else {normaler File) 
begin 
unitread (Funit, Fbuffer, Fblksize, 
Dfirstblk + Fmaxblk - 1); 
Fnxtbyte := Fmaxbyte:; 
Fnxtblk := Fnmaxblk 
end {else, else, else, if, if, with} 
end; (Append} 


ee 
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procedure GetFileinfo { Faddr integer; 
var Fisblkd : boolean; 
var Funit integer; 
var Fvid string; 
var Ptid string}; 


var Fileinfo Fibp; 

begin {GetFileinfo} 
moveleft (Faddr, Fileinfo, size_of (Fileinfo)); 
Fisblkd := Fileinfof.Fisblkd; 


Funit := Fileinfof.Funit; 
Fvid ‘= Fileinfof .Pvid; 
Ftid := Fileinfof.Fheader.Dtid 
end; {GetFileinfo} 
= mm 1} 
procedure ListDir {Funit integer; Kinds : Kindset}; 
var Num integer; 
I : integer; 
N : integer; 
CR : char; 
Knds : set of ..15: 
S) 5 String; 
Ldir : Directory; 


begin {ListDir} 
if Funit in [4, 5, 9..12] then 
begin 
moveleft (Kinds, Knds, size_of (Knds)); 
unitread (Funit, Ldir, size_of ({Ldir), Dirbik); 
ıf IOresult = Ö then 
begin 
fillchar (CR, size_of (CR), chr (EOL)); 
Num := Ldir [®].Dnumfiles; 
N :=ß; 
for I :=® to Num do 
with Ldir [I] do 
if ord (Dfkind) in Knds then 


begin 
if ord (Dfkind) in [ord (Untypedfile), ord (Securedir)] 
then 
begin 
unitwrite (l, CR, 1); 
S := concat ('Volume: ', Dvid); 


unitwrite ({l, S [1], length (S)); 
unitwrite (l, CR, 1) 


end {if} 
else 

begin 
N:=N +1; 
Sm! z 
if N> 9 then S [1] := chr (N div 18 + ord {'$')); 
S [2] := chr (N mod 1 + ord ('8')):; 
S = eoncat [S, 's '. Dtid); 
unitwrite (1, S [1], length (5)) 

end; {else} 


unitwrite (l, CR, ]) 
end (if, with, Tor} 
end {if} 
end {if} 
end; {ListDir} 
mm 1} 


procedure GetDate {var Date : Daterec}; 


begin {GetDate} 
Date := TheDate 
end; {GetDate} 


(—- 





procedure SetDate {Date : Daterec}; 





un |nm—mmnnnn } 


begin {PutDate} 
TheDate := Date 

end; {PutDate} 
=_———— 0... 
procedure GetWork {var Workvid, Symvid, Codevid : 
var Worktid, Symtid, Codetid : 


string; 
string); 


begin ({GetWork} 


Workvid := Userinfo.Workvid; 
Symvid := Userinfo.Symvid; 
Codevid := Userinfo,Codevid: 
Worktid := Userinfo.Worktid; 
Symtid := Userinfo.Symtid; 


GCodetid := Userinfo.Codetid 
end; {GetWork} 
{ 
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procedure GetErrorstuff {var Errsym, Errblk, Errnum integer}; 
begin {GetErrorstuff} 

Errsym := Userinfo.Errsym; 

Errblk Userinfo.Errblk; 

Errnum := Userinfo.Errnum 
end; {GetErrorstuff} 


(m —] 


procedure GetPrefix {var Prefix : string}; 


hi 


begin {GetPrefix} 
Prefix := Dkvid 
end; {GetPrefix} 


Te 


procedure SetPrefix {Prefix : string}; 


begin {SetPrefix} 
if length (Prefix) > Vidleng then Prefix [ß] := chr (Vidleng); 
Dkvid := Prefix 

end; {SetPrefix} 








| --- 42. 


procedure GetEmptyheap {var Heap 


Meier 2no oo on _—-) 


integer}; 
begin {GetEmptyheap} 
Heap := Emptyheap 
end; {GetEmptyheap)} 
m Te — — — 
procedure SetEmptyheap {Heap : integer}: 


begin {SetEmptyheap} 
Emptyheap := Heap 

end; {SetEmptyheap} 

ns 

begin {Utility} 

end; {Utility} 


a > 


m u e- — m 


begin {Pascalsystenm} 
end {Pascalsystenm}. 


UTIL.ASS.TEXT 


ERREREERTERELTLLELLLL IE I 0 LU 2 
* 

‚* Maschinenprozeduren fuer die Unit-Utility. 
:* Von Dieter Geiss, 7. Juli 1984 

:# 

:* function Addr (var Anyvariable) 

;* procedure UpperChar (var C char); 
;* procedure UpperString (var S string); 

;* procedure EatSpaces (var 5 string; Upper 
;* 
ENERDOLUULT OEL U U CU DE LS U 222 


integer; 


boolean); 


rar 


Return ‚„EQU 68 
EINEN RUETELLELELL LU 0000 LU 0020002002022 2 0020 
‚„MACRO PullPascal ;holt PASCAL 


;Rueckkehradresse 
PLA ‚vom Stack 
STA Return 
PLA 


STA Return+tl 


.ENDM 
rer 
MACRO PushPascal ;‚drueckt PASCAL 
;Rueckkehradresse 
LDA Returntl ‚auf den Stack 
PHA 
LDA Return 


PHA 


.„ENDM 
ee 

MACRO PullAddress ‚holt Adresse eines 

:Parameters vom Stack 

PLA 

STA %1 

PLA 

sSTA #141 


. ENDM 
ERETEIOERRELDLLULTDD oo 


FUNG Addr, 1 


:function Addr (var Anyvariable) integer; 
PullFPascal 
PLA ;hole Dummy- 
PLA ;Funktionsergebnis 
PLA ‚Adresse des Parameters 
PLA ‚ist jetzt oben 
‚auf dem Stack 
PushPascal 
RTS 


ERROORERTERERULLULDIULU OLD 0 0 0 US LS U 20 
‚PROC UpperChar, 1 


;procedure UpperChar (var C char); 


Addr ‚EQU 92 ‚Adresse von C 
PullPascal 


PullAddress Addr ‚hole Adresse von C 


LDY +98 

LDA {Addr),Y ‚Inhalt von C 

CMP #"’a! :konvertiere 

BCc $1 ‚nur 

CMP +"ä'" ;Buchstaben 

BCS $1 on a bis ‘2 
AND #5F ‚in Grossbuchstaben 


STA (Adar),Y ;speichere C 


$1 PushPascal 


RTS 
EEERERTELEL DD 0 00 000 SS LS u 222 
PROC UpperString, 1 


‚procedure UpperString (var S : string); 


Addr EQU #2 :Ädresse von S 
PullPascal 


PullAäddress Addr ;hole String-Adresse 


LDY +99 
LDA (Addr),Y ;Laenge des Strings 
INY ‚erstes Zeichen 
TAX X = leneth (>) 
51 BEQ $4 :ifX= B then goto 4 
52 LDA (Addr) ,Y Ares] 
CMP #"a" :konvertiere 
BCC $3 ;nur 
CMP #"ä" ;Buchstaben 
BCS $3 von "alzbre iz! 
AND #5F :in Grossbuchstaben 
STA (Addr),Y :S [Y] :=A 
53 INY ;naechstes Zeichen 
DEX ee 
BNE $2 
54 PushPascal 
RTS 


| 
‚PROC EatSpaces, 2 
boolean); 


:procedure EatSpaces (var 5 string; Upper 


Addr ‚EQU 82 ‚Adresse von S 
Upper .EQU #4 ;Upper-Wert 
Length ‚EQU 85 ;Laenge von S 
Dest ‚EQU 86 ‚Zeiger 
PullPascal 
PLA ;hole Upper-Wert 
AND #1 ;boolean nur false,,true 
STA Upper 
PLA nur niederwertiges Byte 


PullAddress Addr ;hole String-Adresse 


LDY #99 
LDA (Addr),Y ;Laenge des Strings 
STA Length ‚abspeichern 
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Dest 
#91 


Length 


{Addr),Y 


51 

+09 

Dest 
STA (Addr),Y 
PushPascal 


RTS 


‚if X > Length 
;then goto 5 


‚A:=S [X] 
;if not Upper then goto 3 


;‚Konvertiere: 

‚nur 

Buchstäben 

‚von 'a' bis 'z! 

‚in Grossbuchstaben 
daft A <=!" " then goto 4 
:d,h, Buchstaben 
vebergehen 

:Dest := Dest +] 

Y := Dast 

:5 [Dest] := 
Ac=i-#] 

:goto 1 

:Lnenge eines Strings 
:in Byte 0 


:S [8] := Dest 


u En Zu EL ER ee re ee Eee 


END 








Verschiedenes 





APPLE REPARATUREN 
(auch compatible M-boards, z.B. 
Atlas, Arca, CES, Datastar, 
Dipa, Lasar, Mewa, 

PC-48 + 64, Plato, Radix, o 
ae.) sowie Zusatzkarten und 
Disk-Drives führt unser Speziali- 
stenteam mit mehr als 5-jähriger 
Kunden- und Reparatur-Dienst-Er- 
fahrung, garantiert zuverlässig und 
besonders kostengünstig aus. 
Bitte genaue Fehlerangabe sowie 
Tel. Nr. für evtl. Rückfragen nicht 
vergessen. 

Auf Wunsch Kostenvoranschlag. 
aaa-electronic gmbh 
Habsburgerstr. 134, 7800 Freiburg, 
Tel. 0761/276864, Tx. 772642aaad 
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Ihre Erphi-Vertretung für die 
Schweiz: Beltronic, Im 
Chapf, 8455 Rüdlingen, Tel. 
0186731 41, Telex 825 981. 


* Ausschneiden! 
Aufbewahren! x 
Applesoft - MSDOS-Transfer 

1.Prg 80, ab DM 2,50 macht: 
K. Freimann, AÄndelsbachstr. 2a, 
7887 Laufenburg 


I Da gibt’s was umsonst !!!! 
4 x im Jahr den neuen Katalog. 
Bühler Elektronik, Postfach 32, 
7570 Baden-Baden 


Wer hilft? Welche Hardware-Än- 
derungen muß ich machen an mei- 
nem Diskdriver Remex RFDG60 
damit er einwandfrei mit Apple II + 
Ehring Controller arbeitet (Holland) 
P. Visser Marykestr. 23 Noordwyk. 


DEMO.TEXT 


program Demo; 

uses Utility; 

ar o  strine: 
U : integer; 


D : Daterec; 


begin 


write ('Test einiger Utility-Prozeduren'); 


writeln; 


write ('Bitte einen String in Kleinbuchstaben eingeben: ')}; 


readln (5); 
UpperString (S); 


writeln ('Nach Konvertierung: 


writeln:; 


ale 


write ('Bitte Disketten-Unitnummer eingeben: '); 


readln (U); 
ListDir (U, 
writeln; 
GetDate (D); 
with D do writeln 

['Das aktuelle Datum ist: 
writeln; 


[Untypedfile. 


‚ Day, 


‚Subsvol]); 


71. Month, im. Year; 


write ('Neuer Prefix (<RETURN> = keine Aenderung): '); 


readln {(S5); 


EatSpaces (S, true): 


if S <> !' then SetPrefix IS); 


GetPrefix (5); 
writeln ('Der Prefix ist: 
end. 


e 


*x*** Apple kompatibles xxxx* 
Gelsen-Electr. 

K-Schumacher Str. 124, 4650 Gel- 
senkirchen, Tel. 0209/83033 


*Endlich-Wordstar an Star 
SG10* ob NLQ od. Engschrift. Wir 
patchen Ihren WS für den Drucker 
SG10, für DM 40,- Bitte rufen Sie 
uns an. n. 19.00h Tel. 09661/1300. 
Biesier 8458 Sulzbach Max- 
Planck-Str. 12. 


Medizin. Doktorarb. zu ver- 
geben ges. med. Stud, mit guten 
Kenntniss. in Apple-Grafik + As- 
sembler für Rekonstr.-Progr. in his- 
tologie. Zuschr. an Dr. Lechleuth- 
ner Anat. Änst. Pettenkoferstr. 11, 
8000 München 2 


Apple Il + System VB 550, M. 
Horak, Baumeisterweg 12, 7000 
Stuttgart 1. 


ol 
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Ramworks Ile (Batterie ge- 
puff.) Accelerator, Uhr Z80. 802 
zu verk. Tel. Mo-Fr. 20-21 Uhr 
02 12/5 1976. 


Apple lic, 2 Laufwerke, Z80- 
Karte, Joy (Orig) + Software 
(100 Disk)+ Bücher + Zeitsch. nur 
DM 2900,- Tel.: 069/7 8942 67. 


Apple lie-64KB, Monitor Il, 
DuoDisk-L_aufwerk, Superserielle 
Karte, 80Z Karte. Incl. Software z.B. 
Apple Writer Il, Quick File und vieles 
mehr sowie Handbücher. 

Neupreis ohne Software DM 4300,— 
Verkaufspreis komplett DM 2700,- 
Tel. 08389/256 


Hochauflös. Videoscanner 
+ CAD (Elektro / Elektronik) für 
Apple lie gesucht. Eilt! St. Richter 
8650 Kulmbach, Kalte Marter 3. 
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Print-Files 





Ein komfortables Druckprogramm für Pascal-Listings 


Geht es Ihnen auch so? Beim Editieren 
eines Pascal-Programms auf einem Apple 
mit deutscher Tastatur hat man sich daran 
gewöhnt, daß man statt eckiger Klammern 
immer nur die entsprechenden Umlaute 
eintippt. Was mich aber immer wieder är- 
gert, ist die Tatsache, daß ich beim Aus- 
druck des Quelltextes auf dem Drucker 
entscheiden muß, ob alles mit deutschem 
oder amerikanischem Zeichensatz ausge- 
druckt wird, obwohl ich sowohl die eckigen 
Klammern als auch für die deutschen Tex- 
te die Umlaute verwende. Für diesen Fall 
ist das folgende Programm gedacht. Es ist 
für den Apple Ile bzw. Ilc mit Imagewriter 
geschrieben worden, läßt sich aber durch 
Änderung der Steuercodes leicht an ande- 
re Drucker anpassen. 

Das Programm druckt Pascal-Textdateien 
in drei wählbaren Versionen aus, nämlich 
mit 

1) amerikanischem, 

2) deutschem oder 

3) gemischtem Zeichensatz. 

Die 3. Version löst das angesprochene 
Problem. Hier werden alle Programman- 
weisungen mit amerikanischem Zeichen- 
satz ausgedruckt, nur die in Anführungs- 
zeichen stehenden Texte und die Kom- 
mentare, gekennzeichnet durch „(#*“ und 
„*)“ bzw. „ä“ und „ü“ werden mit deut- 
schem Zeichensatz gedruckt. Außerdem 
werden Includefiles ordnungsgemäß ver- 
arbeitet, um auf diese Weise auch lange 
Quelltexte ohne großen Aufwand „in ei- 
nem Stück“ ausdrucken zu können. 
Weiterhin erfolgt spätestens nach 67 Zei- 
len ein Seitenvorschub. Um hier unschöne 
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von Frank Becker 


Trennungen zu vermeiden, kann man 
selbst im Text jederzeit vorher einen Sei- 
tenvorschub bewirken, indem eine zusätz- 
liche Zeile eingegeben wird, die nur den 
String „(#x*)“ enthält. Diese Zeile wird 
nicht mit ausgedruckt, und der Compiler 
ignoriert sie bekanntlich auch, so daß sie 
im Text nicht stört. Natürlich werden die 
dadurch möglichen doppelten Seitenvor- 
schübe verhindert, die ungewollte Leer- 
seiten bewirken würden. Außerdem wer- 
den Leerzeilen am Anfang jeder Seite un- 
terdrückt, da im allgemeinen ein Seiten- 
sprung zur Trennung von Textabschnitien 
ausreicht. 

Zusätzlich ist zur Erhöhung des Eingabe- 
komforts eine kleine String-Eingabe-Pro- 
zedur eingefügt worden. Diese Prozedur 
erlaubt das Abbrechen der Eingabe durch 
<Esc> zu jeder Zeit unter Beibehaltung 
des ursprünglichen Variableninhalts. Zu- 
sätzlich wird ein String-Overflow verhin- 
dert, und ein <Return> am Ende der Ein- 
gabe wird nicht mit einem Zeilensprung 
auf dem Bildschirm quittiert, so daß auch 
Stringeingaben (mit weniger als 80 Zei- 
chen) in der letzten Bildschirmzeile ohne 
Scrolling funktionieren. 


Pascal-Listings für Druckerei 

In der Peeker-Redaktion werden Pascal- 
Quelltexte mit $-Zeichen wie folgt codiert: 
st 

9} 

<a 

8>—>] 

(> { 

*)—>} 


Daher können Umlaute mit eckigen und 
geschweiften Klammern beliebig gemischt 
werden. In der Regel vermeiden wir je- 
doch die Umlaute „ä“ und „u“ innerhalb 
von Kommentarzeilen mit geschweiften 
Klammern, weil sonst die Listings nicht in 
dieser Form abgetippt werden können. us 


Kurzhinweise 


1. Zweck: 

Druckprogramm für UCSD-Pascal-Quell- 
texte 

2. Konfiguration: 

II+/e/c; Apple-Pascal 1.1 oder 1.2; 
Imagewriter; für andere Drucker Steuer- 
zeichen im Quelltext ändern. 

3. Test: 

E(xecute PRINT.FILE 

4, Sammeldisk: 

PRINT.FILE.TEXT 

5. Sonstiges: 

PRINT.FILE.TEXT muß zunächst mit GET- 
DOS von der DOS-3.3-Sammeldisk auf 
Ihre Pascal-Arbeitsdiskette konverliert und 
dann compiliert werden. 
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PRINT.FILE.TEXT 


PROGRAM print_file; 
{von Frank Becker 1985} 
USES applestuff:; 


CONST zps = 67; {Zeilen pro Seite} 


VAR drucker, datei, includedatei : TEXT: 
d_name, i_name : STRING; 
antwort : CHAR; 
ok, cat, incl, mit_titel : BOOLEAN; 
pause, laufwerk : INTEGER; 


bs,If,aus,an,clz,inv,norm,esc,bell : CHAR; 
Geseke) 
PROCEDURE loesche; 


BEGIN 

GOTOXY. (B,21]: 

WRITE (elz,1f,olz,1f,olz); 

GOTORY IB.21]); 
END; 
EEEELIIITEIIIIITESZESEEZSSEIZZZSTEIEIEIISESITEITIETTTT 


PRÜGEDURE linien; 


BEGIN 
GOTOXY (9,19): 


WRITE ('-———— 1 


WRI TE [ en BREI EEE EEE EEREIERHEFEEIREE nn } 
END; 
ESZEIEITITIIESZEIESSIIEESESSESFEITTITESSTEETTUPPEr Te 


PROCEDURE titel_text; 


BEGIN 
mit_titel := FALSE; 
PAGE [OUTPUT]: 
GOTOXY 115,5]; 
WRITE. (inv,' 3 
GOTOXY [15,6]; 
WRITE (aus, ! 
GOTOKY (15,7); 
WRITE {[' '"‚norm); 
ilnien: 

END; 

(uanunnnnnnnnnnnnenn ee] 


PROGEDURE ende; 


Ausdrucken einer Textdatei ry® 


BEGIN 

loesche; 

UNITCLEAR (1); 

WRITE ('Programmdiskette einlegen und eine Taste'); 

WRITE (’ drücken'): 

READ (KEYBOARD, antwort); 

EXIT (PROGRAM); 
END; 
Geseke) 
PROCEDURE str_eingabe (VAR zeile : STRING; 

VAR ok : BOOLEAN); 


VAR zw : STRING; 
taste : CHAR; 
index : INTEGER: 


-_-— Em iss ______ = | 


PROCEDURE abbruch; 
VAR j : INTEGER; 


BEGIN 
ok ;= FALSE; 
IF index > 1 THEN 
FOR j := 1 TO index-1l DO 


WRITE (bs,' ',bs); 
END; 
ee, 
PROCEDURE zurueck; 
BEGIN 
IF index > 1 THEN 
BEGIN 
index := PRED (index); 
WRITE (bs, ' ',bs); 
DELETE (zw,index,]): 
END; 
END; 





(m —— 
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ucsd Er 


PROGEDURE addiere; 


BEGIN 
IF (NOT EOLN (KEYBOARD})) AND (index <= 8ß) THEN 
BEGIN 
WRITE (taste); 
zw := CONCAT (zw, '?'): 





zw [index] := taste; 
index := SUCC (index); 
END; 
END; 
| ] 
BEGIN {PRÖCEDURE str_eingabe} 
ok := TRUE! 
zw om '" 


index := 1; 


REPEAT 
READ (KEYBOARD, taste); 


If taste = esc THEN 


abbruch 
ELSE 
Ir taste IN |! VB’ | THEN 
addiere 
ELSE 
IF taste = bs THEN 
zurueck; 


UNTIL {NOT ok) OR EOLN (KEYBOARD); 


IF ok THEN 
zeile := zw; 
END; 
Geseke) 
PROCEDURE catalog (disk : INTEGER); 


TYPE Datum = PACKED RECORD 
Monat : 9..12; 
Tag : A;8l; 
Jahr : 9..188; 
END; 


Dateityp = (untyped, defekt, Code, Text,Info, 
Data, Graf, Foto, sec_ Dir, Sub_vol)}; 


Bintrag = PACKED RECORD 
erster Block : INTEGER; 
letzter_Block : INTEGER; 
CASE Typ : Dateityp OF 


sec_Dir, 

untyped : (Nichtsl : 8,.4895; 
Vol_Name : STRING [7]; 
Blockzahl : INTEGER; 
Anzahl es ar 
Zeit : INTEGER; 
Boot_Datun: Datum): 

defekt, 

Code, 

Text, 

Info, 

Data, 

Graf, 

Foto, 

Sub_vol : (Nichts? - D.,ABAT; 


Status : BOOLEAN; 
Datei_Name: STRING [15]; 
last_Byte : 1..512:; 
Zugriff : Datum) 

END; {Eintrag} 


VAR Directory : ARRAY [B..77] OF Eintrag; 

i,j : INTEGER; 
zu, 
{$1-} 
FUNCTION Pascal_Diskette : BOOLEAN; 


BEGIN 
UNITREAD (disk,Directory,sizeof (Directory),2}; 


IF IORESULT = Ö THEN 
WITH Directory [9] DO 
Pascal_Diskette := (erster_Block = B) AND 
(Typ IN [untyped, sec_Dir]) 
AND (anzahl IN [8..77]) AND 
(LENGTH (vol_Name) IN [®..;7]) 
ELSE 
Pascal_Diskette := FALSE; 
END; 
{$1+) 


mm 
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RAM-KARTEN 
Rüsten Sie Ihren Apple II+ auf: 
DIA KBer nee DM 383,— 
os Ken. wem. DM 463,- 


Die Karten rüsten direkt den 
Hauptspeicher auf und sind auch 
unter Basic voll nutzbar, Erhöhung 
der Anzahl der HGR-Seiten bis auf 
32 Seiten. 

Die Karten werden kompleit aufge- 
baut und mit Software geliefert. 
Versand nur gegen VR-Scheck. 
Andreas Müller, Lessingsir. 17, 
4000 Düsseldorf, T. 0211/7765093 


CP/M Karte für Ilc 
Einbauplatine (ohne Löben) mit 
Betriebssystem 2.23 und RAM- 
Disk verkauft für DM 300,— 

Tel. 0211/3474 11 0. 348387 


Apple Ile + Monitor + 2LW + 
CP/M + 80Z + 64K + Epson 
FX-80+ + Lit. + ca. 150 Disks, NP 
ca. DM 6800,- für DM 4000,-., 
Tel. 02365/42206 


Maus-orig. Apple mit MOUSE- 
PAINT u. Interface DM 300,—. Tel. 
0431/81598. AP17 256K-Karte 
u.IBS m. org. Software DM 250,—. 
Tel. 0431/81598 


Verkaufe 

Apple Grafikkarte mit Farbe 1024* 
1024 Bildpunkte + Software 

nach 19 Uhr Tel. 06 21/71 1604 


EPSON FX-80 Drucker 


VB 900,— 
Original Apple Disk I VB 600,- 
Orig. Maus mit Karte VB 350,— 


CP/M-, Drucker-, Farb- und orig. 
Apple Controller je VB 70,- 
Tel. ab 18 Uhr 07022/45485 


Typenraddrucker Silver 
Reed, RS2 32C-Interface, Bidi- 
rektional, 1, 8 KB-Puffer Apple Il- 
Kompatibel neu DM 640,-. Apple 
Scribe-Printer (NP 1300,-) DM 
400,-. Tel. 07222/6338. 


Appie Ile Speichererweite- 
rung der 1 MB Karte von 256 K 
auf 1 MB DM 369,- Apple lic 106r 
Block Adapter DM 99,-, Macintosh 
Speichererweiterung von 128 auf 
512 KB DM 299,- 

Macintosh Power Sound DM 149,- 
XL-Enhancement-Kit DM 499,- 
Fa. Reinhard Schlösser, Ismanin- 
ger Str. 108, 8000 München, 

Tel. ab 18 Uhr 089/985889 


llc-Uhr, Z80c, Z-RAM Karten 


+ CP/MII Tel. 0212/315972 
nach 20 Uhr. 
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l+ Nachbau, Hardware 
(Monitor, Maus, Floppys uvm.), 
Software (Apple Pascal 1.2 für 
DM 650,-) uvm. orig. verpackt, 
Zeitschriften, Bücher zu verk. Liste 
gegen DM 3,- in Briefmarken. 
Tel. 08241/2882. 


Zubehör für Apple Ile: 
RAM-Works-Karte mit 512 K, Ac- 
celerator Ile, Grappler+—IF, Z-80 
Softcard, Erphi-Controller, BASF- 
Doppelfloppy 2 x 640 K, FDCA4- 
Controller, Exbasic Level I}, Eprom 
Burner, 80-Zeichen-Karte mit 64 K, 
2 Paddles. 

Preise nach Vereinbarung. 

Tel. 07138/8364 


Superpreis für Drucker 
C.ITOH Riteman F-+ Matrix- 
drucker IBM PC/FX80 komp./ 
105 Z/Sek./NLQ DM 750,— 
C.ITOH Typenraddrucker 
A10-30 P/parallel/30 Z/Sek. DM 
1190,- 

A10-30 RM/seriell/30 Z/Sek. DM 
1090,- 

Alle Preise incl. Mehrwertsteuer 
zuzüglich Versandkosten. 
TEACH-Computer, Siemensstr. 22, 
7257 Ditzingen, T. 07156/3001-34 


Ile komp., 64K, Z80, 80Z, 2 
TEAC-LW 55F (je 1MB, 160+35 
Spur), ext. Tastatur, Monitor, BS: 
DOS+CP/M Pr.: VB DM 3500,-, 
SW umsonst dazu: Compiler, Da- 
tenbank uvm. Tel. pr. 089/951429, 
0. 089/63645667 


Macintosh f. Studenten 25% 
unter Lisie; Apple-Produkte (orig. 
+ kompat.) EDV-Zubehör; Drucker 
(z.B. Juki, etc.) Datent. Schoeben, 
mel=98 217152377 


Xebec IBM-Hostadapter für 
Xero D Subsystem mit Install-Soft- 
ware neu DM 250,—. 

Tel. 0831/95558 


Megaboard-HDC VB DM 
800,— 8” FDC VB DM 450,- Org. 
UCSD-PASCAL 1.1 + HB VB DM 
100,—. Tel. 07231/61816 


Frei prog. Tastatur für Il plus 
(ähnl. Brose siehe UM 2/85) für 
DM 350,- (DM 695, -). 

Tel. (06221) 20250 Kehrel. 


lle, 80Z + 64K, Matrixdr. 
802/Sek. grafikfäh., Juki 6100 
Typenrad 20 Z/Sek. + 2. Disc- 
laufw./Monitor Textverarb. progr. 
VB DM 2500,-—. Tel. 07021/59462. 


RAMFACTOR (bat. gepuff. 
RAM-Karte)! Accelerator, Uhr, 
Z80, 80Z+ 64K, usw. 

Tel. 0212/31 5972 nach 20 Uhr. 


Apple-Graphic-Tablet DM 
700,-— TEAC FD55F+ERPHI- 
Contr. DM 900,— mit 3 Mon, Ga- 
rantie. Tel. 06081/15519 


Karten für Ile, 802+64K, 
TIMER von AE je DM 50,-. 
Tel. 06103/82334 


DISK Il-Laufwerk, orig. Ap- 
ple, DM 300,-. Tel, 02666 / 704 


Apple Il. DFÜ-Kermit Pascal 
satt, Public Domain in DOS u. 
CP/M. Je Volume DM 15,-. Bahn- 
hofssimulation, Sprachen (S.A.L.), 
Schulprogr. 

Gratisinfo: Fa. Waltraud Munhle, 
Waldwinkel 3, 2105 Seevetal 3 


Biete Software 


DISKETTEN 
* 51/4", 48 tpi, DM 1,20 * 
* 31/2", 135 tpi, DM 4,10 * 


* auch andere, bes. Garantie * 
* Allg. Austro-Ag, Ringstraße 10 x 
* D-8057 Eching, T. 081 33/61 16 « 


68000-SYSTEM für Apple Il 
mit Prozessorkarte und Software: 
Assembler, Editor, Monitor, Tracer 
(in 6800-Code) und komfortabie 
/O-Treiber (DOS, 80Z, Printer). 
KOSTENLOSE INFO anfordern bei 
Krey, Christianistr. 18, 2300 Kiel! 


Vereins-, Immobilien-, Kun- 
den-, Adreß-, Kassen- und Datei- 
verwaltung. Info 0,80 DM von 
E. Heinz, Püttkampsweg 13, 

2000 Hamburg 52 


UNI Software 
Print, PLOT... & Show it! alle 


Business Grafiken 225 
Regression XVII 225 
Cluster Analyse 23 


Books & Software, T. 09571/3182 


Verkaufe Original 

Appleworks Utilities: 

Macroworks 80,— Mailworks, Side- 
way DMP-Charger je 150,- und 
Print Shop Library Disk #3 50,-. 
Tel. 0211/34 7411 oder 348387 


OHO 256/512-Byte Ramkar- 
te als Ramdisk unter ProDOS 
1.0-1.1.1 Disk + Anl. DM 20,- 
(NNV). Info von Postfach 1323, 
2400 Lübeck 1 od. 

Tel. 04517/895697 ab 16 Uhr. 


Topsoftware für Apple Il: 
Fußballtabellenverwaltung: 30,— 
Basic-Pascal Konverilierer: 150,— 
MS Fortran: 550,-, Gato: 120,— 
Info (0,80 DM) bei: W. Rittmeyer, 
Wehrbruchweg 30, 4060 Viersen I 


EEkER 44444 
Börse 


Original Software: [m. Hand- 
buch) DMP-Charger, Apple Writer 
Ile Input 2.0, ProDOS Editor 1.0, 
Music Construction Set, Print 
Shop, Robo CAD-System, Side- 
ways, Preise nach Vereinbarung. 
Tel. 07138/8364 


> 30 Zeichensätze f. EPSON 
FX-80. DM 130,-. Info DM 3.-. 
Achim Stößer, Hauptstr. 83, 

7552 Durmersheim. 


ÖKOLOPOLY für Apple Il 
Disk DM 30,-. Info gratis. 
Tel. 0921/56611 ab 17 Uhr. 


Software Uhr für Apple |l+, e, 
c, Zeitschaltmöglichkeit Diskette + 
Anleitung DM 25,- Oecking 

Tel: Do. 02317/391920 


Suche Hardware 


Suche Flachbildschirm für 


Priv. oder Hdl. Tel. 06103/82334 


Suche Software 


Suche für Ilc Finanzmana- 
ger, private Haushaltsbuchfüh- 
rung od. Vermögensverwaltung al- 
les mit Simulationsmöglichkeit 
Tel. 06047/1822 


TUTSIM für lic günstig zu 
kaufen ges., Tel. 0214/68232 
ab 18 Uhr 


Habe qute Software zum 

TAUSCH! 

Tei. 0043/4875/6665 (von BRD) 
04875/6665 (von AUT) 


Ihr direkter 
Draht zur 
Anzeigen- 


abteilung 


Tel. 062 21/ 
48 92.06 
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Für Ihre Unterlagen 
Abonnement bestellt 


am: 


Vertrauensgarantie: 

Ich habe davon Kenntnis genommen, 
daß ich die Bestellung schriftlich 
durch Mitteilung an den Dr. Alfred 
Hüthig Verlag GmbH, Postfach 
102869, 6900 Heidelberg innerhalb 
von 7 Tagen widerrufen kann. Zur 
Fristwahrung genügt die rechtzeitige 
Absendung des Widerrufs (Datum 
des Poststempels). 


Peeker 
Leserservice 


Postfach 102869 
6900 Heidelberg 


Für Ihre Unterlagen 
Folgende Bücher bestellt: 


am: u 
bei: 


Peeker 
Versandbuchhandlung 


Postfach 102869 
6900 Heidelberg 1 


Für Ihre Unterlagen 


Folgende Disketten 
und Programme bestellt: 


am: u 

bei: 

Peeker 
Softwareabteilung 
Postfach 102869 
6900 Heidelberg 1 





3 
4 





wa Buch-Karte 








= 
: 
go 
O 
= 
O 
17 
“a 
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Ja, ich möchte Peeker abonnieren. 

Liefern Sie mir Peeker ab Ausgabe .......... a mars zum Jahresbezugspreis 
von 2. Zt. DM 72,- (Inland) inkl. MwSt. Die Lieferung erfolgt frei Haus. Porto, Ver- 
packung und Zustellgebühren übernimmt der Verlag. Der Jahresbezugspreis für 
das Ausland beträgt z. Zt. DM 72,- plus DM 18,- Versandspesen. 


x 


Datum 1. Unterschrift 
Bitte lesen! 


Vertrauensgarantie: Ich habe davon Kenntnis genommen, daß ich die Bestellung schriftlich durch Mitteilung an den 
Dr. Alfred Hüthig Verlag GmbH, Postfach 102869, 6900 Heidelberg innerhalb von 7 Tagen widerrufen kann. Zur 


Fristwahrung genügt die rechtzeitige Absendung des Widerrufs (Datum des Poststempels). 


Datum 


x 


2, Unterschrift 


Verlagshinweis: Das Abonnement verlängert sich zu den jeweils gültigen Bedingungen um ein Jahr, wenn es nicht 
2 Monate vor Jahresende schriftlich gekündigt wird. 


Wir können nur Bestellungen mit zwei Unterschriften bearbeiten. 
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Bitte senden Sie mir gegen Rechnung folgende Bücher: 


WW Do DD DT .5 0 


Bühler, Applesoft-BASIC, U 
3-7785-1094-0, DM 38,- 

Eggerich, dBase Il, Bd. 1, Bl 
3-7785-1147-5, DM 39,80 

Eggerich, dBase Il, Bd. 2, [1 
3-7785-0987-X, DM 39,80 

Eggerich, dBase Il, Bd. 3, ® 
3-7785-0988-8, DM 39,80 

Gabriel, Applewriter, Mi) 
3-7785-1234-X, DM 35,- 

Hagenmüller, Microsoft-BASIC, Bd. 1, m 
3-7785-1038-X, DM 38,- 

Juhnke/Redlin, Apple Pascal, Bd. 1, u 
3-7785-1246-3, ca. DM 40,- 

Kehrel, Apple Assembler lernen, Bd. 1, 7 
3-7785-1151-3, DM 38,— 


Kehrel, Apple Assembler lernen, Bd. 2, 
3-7785-1170-X, DM 38,- 
Schäpers, ProDOS Analyse, 
3-7785-1134-3, DM 68,— 
Schäpers, Bewegte Apple-Graphik, 
3-7785-1150-5, DM 58,- 

Stiehl, Apple DOS 3.3, 
3-7785-1297-8, DM 28,- 

Stiehl, Apple ProDOS, Bd. 1, 
3-7785-1098-3, DM 28,- 

Stiehl, Apple ProDOS, Bd. 2, 
3-7785-1036-3, DM 30,- 

Stiehl, Apple Assembler, 
3-7785-1047-9, DM 34,— 
Wassermann, Apple Ilc Handbuch, 
3-7785-1157-2, DM 35,— 





Eratum 


Unterschrift 
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Bitte senden Sie mir gegen Rechnung folgende Disketten: 


[! Peeker-Sammeldiskette, einzeln LI ProDOS-Editor 1.0, Programm, DM 98,— 
Disk# ‚ Disk# [] MMU 2.0, Programm, DM 98,— 
Disk# ‚ Disk# [I INPUT 2.0, Programm, DM 98,- 
Preis je Disk DM 28,- (einzeln) L] Softbreaker 1.0, Programm, DM 20,- 
im Fortsetzungsbezug UL] Superquick, Programm, DM 48,- 
Ab Diekt [1 Turtle Graphics, Programm, DM 98,- 
(Mindestbezug 6 Disketten) U Disk ee BR N aM M 
Preis je Disk DM 20,- LI Kyan- asca 2.0, Programm, DM 170,- 
Fur L! Fast-Writer, DOS 3.3, DM 128,- 
[1 Apple DOS 3.3, Begleitdisk., DM 28- [1 Fast-Writer, ProDOS, DM 128, 
U ProDOS, Band 1, Begleitdisk., DM 28,- 7) Double-Hires-Tools für Applesoft, DM 28,- 
[| ProDOS, Band 2, Begleitdisk., DM 28, 7) Double-Hires-Tools für Kyan, DM 28,- 
U] Apple Assembler, Begleitdisk., DM 28- | Kyan-Toolkit Nr. ‚DM 
Datum Unterschrift 








PLZ/Ort 


Ich wünsche jährliche Berechnung durch: 

U] Verlagsrechnung [I Abbuchung von 
meinem Bank- bzw. 
Postscheckkonto 


Ba nk/PschA 





Bankleitzahl 





Kio,-Nr. 








Karte bitte vollständig ausfüllen 





Vorname; Name 


® 
5 
= 





zu 
N 
E 









Telelon mit Vorwahl 


Wa Buch 








Karte bitte vollständig ausfüllen 


Vorname, Name 


Firma 





Straße 


PLYOr 


Telefon mit Vorwahl 


8 
b 
; 
J 





POSTKARTE 


Peeker 
Leserservice 


Dr. Alfred Hüthig Verlag GmbH 
Postfach 102869 
6900 Heidelberg 


POSTKARTE 


Peeker 
Buchabteilung 


Dr. Alfred Hüthig Verlag 
Postfach 10 2869 
6900 Heidelberg 1 


POSTKARTE 


Peeker 
Softwareabteilung 


Dr. Alfred Hüthig Verlag 
Postfach 10 2869 
6900 Heidelberg 1 


INPUT 2.0 


Ein Bildschirm- 
Maskengenerator 

für DOS 3.3 und ProDOS 
von. Stiehl 


1984, Diskette und Manual, DM 98,- 
ISBN 3-7785-1021-5 


„Input 2.0" liegt wahlweise in der Bank i 
oder Bank 2 der Language Card und wird 
durch einen kurzen Driver in den unteren 
48K aufgerufen. 

Für jedes Feld der Bildschirmmaske lassen 
sich u.a. definieren: Feldlänge (bis zu 255 
Zeichen) — Vtab — Htab — Datentyp (insge- 
samt 8 Typen) - Scrollflag (starre oder dyna- 
mische Maske) — Ctriflag — Fülllag — Lösch- 
flag - Bildschirmflag (40- oder 80-Z-Darstel- 
lung). Innerhalb eines Eingabefeldes besteht 
jeder denkbare Redigierkomfort (Insert, De- 
lete, Rubout, Restore usw.). 
Gerätevoraussetzung: Apple Ile oder lic; fer- 
ner Apple II+ im 40-Zeichenmodus 


MMU 2.0 

Memory Managements 
Utilities 

für die Apple lie 64K-Karte 

DOS 3.3 (und ProDOS) 


von U. Stiehl 


1984, Diskette und Manual, DM 98,- 
ISBN 3-7787-1023-1 


Insgesamt enthält die neue „MMU 2.0"- 
Diskette über 25 Programme, die neue 
Einsatzmöglichkeiten für die Extended 80 
Column Card (erweiterte 80-Z-Karte = 
64K-Karte für den Apple lie) erschließen. 
Ein Teil der Programme laufen auch auf 
dem Apple II Plus, doch ist „MMU 2.0" 
primär für 64K-Karte-Besitzer gedacht. 


Gerätevoraussetzung: Apple Ile mit 64K- 
Karte oder Ilc 


DISK 40 


Disketten-Organisationsprogramm 

für DOS-3.3 - 35-40 Spuren 

von Hermann Seibold und Dipl.-Ing. 
Udo Marin, 1986, Programmdiskette 
mit Anleitung, DM 48,— 


Durch eine einfach zu bedienende Menü- 
führung können DOS-3.3-Disketten um- 
fangreich bearbeitet oder kopiert werden. 
— Tabellarische Ausgabe der Disketten- 
belegung . 

— Ordnen des Catalogs 

— „Undelete“n von versehentlich ge- 
löschten Dateien 

— Vergleichen von Disketten, Dateien 
oder DOS-Spuren 

— Kopieren von Disketten, Dateien oder 
DOS-Spuren 

— Formatieren von Daten-Disketten 

— Erweitern auf 40 Spuren bei bestehen- 
den 35-Spur-Disketten 

— Ändern des Boot-Programms 

— File-Editor zum Editieren von Disketten- 
Dateien 

— Komfortabler Sektor-Editor für Hex- 
und ASCHl-Darstellung 

-VTOC-Editor, z.B. zur Freigabe der 
DOS-Spuren 


Hüthig Software Service, 
Postfach 102869, D-6900 Heidelberg 


BEGIN {PROCEDURE catalog} 
PAGE (OUTPUT); 
GOTOXY (18,8); 


IF NOT Pascal_Diskette THEN 
BEGIN 
WRITE (inv,' In Laufwerk ',disk); 
WRITE (' befindet sich keine '); 


WRITELN ( 'PASCAL — Diskette !!! ',norm); 
EXIT (catalog); 
END; 
WRITE (' ',änv." Katalog von '); 
WRITELN (Directory [®].vol_Name,': ",norm]; 
WRITELN; 
3 :=®:; 


| {Es werden nur Textdateien angezeigt} 
FOR i := 1 TO Directory [ß].anzahl DO 
WITH Directory [i] DO 
IF Typ = Text THEN 
BEGIN 

GOTOXY (38 « (j MOD 3) + 3,53 DIV 3 + 2); 
WRITE (Datei_Name); 
j := SUCC (j); 


END; 
IF j = ß THEN 
WRITELN {' Keine Textdatei vorhanden !!!'); 
linien; 
END; 
Ges) 
{$1-} 


FUNCTION existiert (name : STRING) : BOOLEAN; 


BEGIN 
IF incl THEN 
RESET (includedatei, name) 
ELSE 
RESET (datei, name); 


{sgfls, ".TEXT" an den Dateinamen anfuegen} 
IF IORESULT <> ® THEN 
IF incl THEN 
RESET (includedatei, CONCAT (name, ',TEXT')) 
ELSE 
RESET (datei, CONCAT (name, '.TEXT')); 


existiert := [IORESULT = $); 
END; 
{$I+} 
Geseepekeeaeeer) 
PROCEDURE ausdrucken; 


VAR zeile, zw : STRING [255]; 
zeilen_zaehler : INTEGER; 
usa, brd : STRING; 
opt, neue_seite, break : BOOLEAN; 
kommentar ; INTEGER; 
kein, k_aus : ARRAY [1..2] OF INTEGER; 


mm rn Er a nd nn BE a a lu 


PROCEDURE ergaenze (wieviel : INTEGER; land : STRING); 


BEGIN 
IF land = '' THEN 
BEGIN 
zw ı= GONCAT (zw,zeile); 
zeile := ''; 
END 
ELSE 
BEGIN 
zw := CONCAT (zw, COPY (zeile,l,wieviel),land); 
DELETE (zeile, 1, wieviel}; 
END; 
END; 


— oo oo0r 


PROCEDURE keine_leerzeilen_drucken; 








| VAR leer : STRING [255]; 


BEGIN 
leer := ' - 
leer := CONCAT (leer,leer,leer,leer,leer,leer, ' Dr 
DELETE (leer,1,255 - LENGTH (zeile)); 
IF zeile <> leer THEN 
neue_seite := FALSE; 
END: 


A nn 5 ] 


FROÖCEDURE transform; 
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VARi : INTEGER; 
deutsch : BOOLEAN; 
BEGIN 
IF kommentar <> ® THEN 
zw := brd 
ELSE 
ZW != usa; 


deutsch := FALSE; 


REPEAT 
i := (POS ('!'!"', zeile) + 256) MOD 257; 
k_ein [1] := (POS (’(*', zeile) + 256) MOD 257; 
k-aus [1] POS ('x)', zeile); 
k_ein [2] (POS ('ä',zeile) + 256) MOD 257; 
k-aus [2] := POS ('ü',zeile); 


IF kommentar <> ® THEN 
IF k_aus [kommentar] = ® THEN 
ergaenze (ß,'') 
ELSE 
BEGIN 
ergaenze (k aus [kommentar] - 1, usa); 
kommentar := ß; 
END 
ELSE 
IF deutsch THEN 
BEGIN 
ergaenze ((i+tl) MOD 257, usa); 
deutsch := FALSE; 


END 
ELSE 
IF (i < Kein [1]}) AND (i < kein [2]) THEN 
BEGIN 
deutsch := TRUE; 
ergaenze (i+l,brd); 
END 
ELSE 
IF (kein [1] < kein {2]) THEN 
BEGIN 
kommentar :=1]; 
ergaenze (k_ein [1] + 1, brd); 
END 
ELSE 
IF kein [2] < 256 THEN 
BEGIN 
kommentar := 2; 
ergaenze (k_ein [2] + 1, brd)}; 
END 
ELSE 


ergaenze (9, ''); 
UNTIL zeile = ''; 


zeile := zw; 
END; 


m  — — 


PROCEDURE vorbereiten: 


BEGIN 
zeilen_zaehler := ß: 
kommentar := $: 
loesche; 


WRITE { "Drucker einschalten und <RETURN> drücken '}; 


READ (KEYBOARD, antwort); 
IF NOT EOLN (KEYBOARD) THEN 
EXIT (ausdrucken); {ohne RETURN kein Ausdruck} 


loesche; 

WRITE ('"Titelzeile eingeben (nur <RETURN>'); 
WRITELN (' = keine Titelzeile)',an); 

zeile := ''; 

str_eingabe (zeile,ok); 

WRITE (aus); 


IF NOT ok THEN 
EXIT (ausdrucken); 


loesche; 
WRITE ('D(eutscher), A(merikanischer) oder '); 
WRITE ('O{ptimaler) Zeichensatz ?'); 


REPEAT 
READ {KEYBOARD, antwort); 
UNTIL antwort IN ['9',!D!, "al, 'A!,'o'r,.'0',esc]: 


IF antwort = esc THEN 
EXIT (ausdrucken); 


UNITCLEAR (6); 
REWRITE (drucker, 'printer:'); 
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WRITE (drucker,esc, 'c',esc,'e',esc, 'LÖ1B'); 
{Drucker in Grundstellung bringen, 
Schriftart einstellen und linken Rand setzen, 
Die Schriftart muß so gewaehlt werden, 
daß nach Abzug des Randes noch mindestens 
860 Zeichen pro Zeile gedruckt werden koennen} 


usa := '.2,.'; 
brie= 1 2...D00, 7 
usa [1] := eso; 

usa [3] := CHR (7): 


usa [4] := CHR (9); 
bra [1] := esc; 

bra [3] := CHR (3); 
brd [4] := CHR (ß):; 
bra [5] := esc; 

bra [7] := CHR (4A}; 
bra [8] := CHR (B): 


opt := FALSE; 
CASE antwort OF 


'Ya', 'A' : WRITE (drucker, usa}; 
ıd', 'D: : WRITE (drucker, brd}; 
lol, '90' : opt := TRUE; 

END; 


gotoxy (B,21); 
WRITE (clz, 'F(ettdruck oder N{ormaldruck ?'}; 


REPEAT 
READ (KEYBOARD, antwort); 
UNTIL antwort IN ['n','N','f','F',esc]; 


IF antwort IN ['f','F'] THEN 
WRITE {drucker,esc, '!'); 
{Steuerzeichen fuer Fettdruck} 


JE antwort = esc THEN 
EXIT (ausdrucken); 


PAGE (OUTPUT); 
WRITELN (inv,' Jede Taste = Unterbrechung ',norm); 


IF zeile <> '' THEN 

BEGIN 
WRITELN (drucker, zeile); 
WRITE (drucker, ' — u #- 
WRITE (drucker, ' 
WRITELN (drucker, ' 
zeilen_zaehler := 35; 


END; 














PROCEDURE wechseln; 


VAR start, laenge : INTEGER; 
fehler STRING; 


Eee ia a a a aaa ae rn 


BEGIN 
WRITELN (l1f,1f,bell); 
WRITE (inv); 


CASE nr of 
1 : BEGIN 
WRITE ('! Geschachtelte Includedateien '); 


WRITELN {'sind nicht erlaubt ! ',norm); 
END; 
2 : BEGIN 
incl := FALSE; 
WRITELN (i_name,norm, ' existiert nicht !')}; 
END; 
END; 
WRITE {1f,'<RETURN> = ignorieren Yan Hl 


WRITELN ('"<ESC> = Abbruch! ,1f,1f); 


REPEAT 
READ (KEYBOARD, antwort); 
UNTIL antwort IN [' ',esc]; 


IF antwort = esc THEN 
EXIT (ausdrucken); 


PIE ee Gr er Sr a ne Dee & 


BEGIN {PROCEDURE wechseln} 

IF {POS ('(»$I+r',zeile) = ß) 
AND (POS ('(x$I-',zeile) = ß)} 

AND (POS ('''',zeile) = ß) 
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THEN 
IF incl THEN 
error (l) | 
ELSE 
BEGIN 
incl 
start 
laenge 
i_nane 


:= TRUR; 
:= POS ('(x$I',zeile) + 4; 
:= POS ('»)',zeile) - start; 
:= COPY (zeile, start, laenge); 


ı i_name) <> 9 DO 
Pos 4 U 4 name). 1: 


WHILE POS (' 
DELETE (i_name, 


IF NOT existiert (i_name} THEN 
error (2) 
ELSE 
BEGIN 
READLN (includedatei, zeile); 
WRITELN (zeile); 
END; 
END; 
END; 


FUNCTION unterbrechung : 


BOOLEAN; 








BEGIN 
READ (KEYBOARD, antwort); 
WRITELN; 
WRITE (inv,' <ESC> = Abbruch jede andere '); 
WRITELN ('Taste = Ausdruck fortsetzen ',norm,1f}; 
UNITCLEAR (1); 
READ (KEYBOARD, antwort); 


IF antwort = esc THEN 
unterbrechung := TRUE 
ELSE 
unterbrechung 
END; 


ı:= FALSE; 


in nn nn nm 


{ 
BEGIN {PROCEDURE ausdrucken} 
vorbereiten; 


REPEAT 
IF incl THEN 
READLN (includedatei, zeile) 
ELSE 
READLN (datei, zeile); 
WRITELN (zeile); 


IF POS ('(»$I',zeile) <> 8 THEN 
wechseln; 


IF POS ('(x*)',zeile) <> ® THEN 


BEGIN 
zw != zeile; 
WHILE FOS (' ',zw) <> 8 DO 
DELETE (zw, POS ('! ',zw), 1); 
IF zw = '(%##*)' THEN 
BEGIN {Seitenvorschub-Befehl} 


zeilen_zaehler := ®: 
IF NOT neue_seite THEN 
PAGE (drucker); 
| neue_seite := TRUE; 
zeile := ''; 
END; 
END; 


IF neue_seite THEN 
keins_leerzeilen_drucken; 


IF NOT neue_seite THEN 
BEGIN 
IF opt THEN 
transform; 


WRITELN (drucker, zeile); 
zeilen_zaehler := SUCC (zeilen_zaehler); 
{Seitenvorschub} 
IF zeilen_zaehler MOD zps = ® THEN 
BEGIN 
neue_seite := TRUE; 
PAGE (drucker); 
END; 
END; 


IF incl THEN 
IF EOF (includedatei) THEN 
BEGIN 
CLOSE (includedatei); 
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E 


break 
IF keypress THEN 
break := unterbrechung; 


incl := FALSE; 
ND; 


:= FALSE; 


UNTIL EOF (datei) OR break; 


WRITE (drucker,brd); 


{deutscher Zeichensatz} 


IF NOT (break OR neue_seite) THEN 
PAGE (drucker); 


END; 


{ KERFFTIRTEEEERERISIIEEEFFEFEI } 


BEGIN 
est 
clz 
iny 


norm := CHR (14); 


aus 


bs := CHR (8): 


{Programm} 
CHR (27); {Es folgen Steuerzeichen} 
CHR {26}; {Zeile loeschen} 
cHR (15\° {Inv-Modus einschalten} 


{Inv-Modus ausschalten} 


CHR (6) {Cursor unsichtbar} 
CHR (5} {Cursor sichtbar} 
= CHR (7) {Signalton} 

CHR (1) {Linefeed} 
{Backspace} 


titel text: 


WHILE TRUE DO 
BEGIN 


IF mit_titel THEN 


titel text; 


REPEAT 


loesche; 

cat := FALSE; 

WRITE ('Wie heißt die Textdatei ? 
WRITELN (' Abbruch <RETURN> = Catalog ', an); 
UNITCLEAR (1); 

str_eingabe (d_name,ok); 


WRITE (aus); 
IF NOT ok THEN {ESC = Abbruch} 
ende; 
IF d_name = '' THEN 
BEGIN {RETURN = Katalog zeigen} 
cat := TRUE; 
loesche; 
WRITE ("Laufwerk ? #',an); 
{$1-} 
READLN (laufwerk); 
{$I+) 
WRITE (aus); 


IF laufwerk IN [4,5,9..12] THEN 
catalog (laufwerk); 
linien; 
END; 


<ESC> ="); 
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Gerüchteküche 


Zum llgs 


In den USA haben externe Soft- und Hardware-Entwickler nach 
dem 15. September 1986 ein ganzes Bündel von Apple-Iigs-Pro- 
dukten angekündigt, die im Laufe der nächsten Wochen und Mo- 
nate erscheinen werden. Eine kleine Auswahl: 

— Kyan Software wird im Dezember ein neues „Kyan-Pascal" 
(65818-Pascal-Compiler) vorstellen. 

— Von TML Systems soll ebenfalls ein „Pascal-Compiler“ er- 
scheinen. 

— Roger Wagner Publishing wird den Assembler „Merlin 16“ 
(65816-Merlin/Big Mag), ein erweitertes „Mousewrite“ (Text- 
verarbeitungsprogramm; vgl. Peeker 7/86) sowie ein Pseudo- 
Coprocessor-Programm „Softswitch“ zum Umschalten zwi- 
schen mehreren RAM-residenten 8-Bit-Programmen (ähnlich 
wie unser „Softbreaker“) herausbringen. 

— Von Applied Engineering werden mehrere RAM-Erweiterungs- 
Karten sowie 
— man höre und staune - eine Accelerator mit 6 MHz erschei- 

nen. 

— Broderbund Software wird sein beliebtes „Printshop“ in einer 
Neufassung herausbringen. 

— Von VIP Technology wird das bereits für den Atari ST vorliegen- 
de integrierte Software-Paket „VIP Professional“ (Tabellenkal- 
kulation, Dateiverwaltung, Business-Grafik) veröffentlicht. 


Es ist geplant, die interessanteren Ilgs-Produkte zu sehr günsti- 
gen Preisen den Peeker-Lesern über den Hüthig Software Servi- 
ce anzubieten. 


Zum Macintosh 


Der neue „Macintosh“ soll möglicherweise schon Ende Januar 
vorgestellt werden, und zwar mit 68020-Prozessor mit 16 MHz, 
größerem RAM-Speicher, größerem Bildschirm und Slots. Von 
Atari wird der analoge „Atari TT“ (32-Bit-Prozessor 68020: 
„Ihirtytwo-Thirtytwo“ gegenüber „ST“: 16/32-Bit-Prozessor 
68000: „Sixteen-Thirtytwo“*) vermutlich erst im Herbst 1987 er- 
scheinen. Als Kuriosum am Rande: Für den Atari 1040 ST gibt es 
seit kurzem einen Macintosh-Emulator für weniger als DM 400,—. 


UNTIL NOT cat: Allerdings muß man die Mac-ROMs besitzen. 


inol := FALSE; 


END; 
END. 
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WRITE ("vorhanden |',norm,belil):; 
FÜR pause := 1 TO Ad 00; 
END; 


IF ok THEN 


BEGIN 

mit_titel := TRUE; 

ausdrucken; 

CLOSE (datei}; 

CLOSE (drucker); 

IF incl THEN 

CLOSE (includedatei): 

END; 


ok := TRUE; Zum Atari 
IF NOT existiert (d_nane) THEN Er ö E er : , A , 
BEGIN Von Atari gibt es seit Mitte Oktober für die ST-Reihe einen „Bit- 
el. Blitter“: Dies ist ein Grafikspeicher- „Blockverschiebungsbau- 
RUE nv, tdinane,! Set nteht th: stein”, der in Verbindung mit dem geänderten Betriebssystem- 


ROM die gesamte Grafik-Bildschirmausgabe um den Faktor 5 be- 
schleunigt. Ferner wird ein „MS-DOS-Emulator“ erscheinen: 
Dies ist eine 8088-Platine mit 512K-RAM, die an den DMA-Port 
(im Daisy-Chain-Verfahren) angeschlossen wird. MS-DOS-Pro- 
gramme können dann auf den Atari-3,5-Zoll-Drives gefahren wer- 
den. 
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INPUT für Formeln 


Eine Utility für Applesoft-BASIC 


von Hans-Martin Eng 


Ausgangslage 


Geben Sie zu, am liebsten hätten Sie 
schon gerne einmal auf die Frage des 
Apple nach einer Eingabe einfach mit 
„1/7“ statt mit „O.142857143° geantwor- 
tet. Oder vielleicht sind Sie es leid, statt 
einfach die dem Applesoftprogramm längst 
bekannte Variable Pl mit ihrem Namen auf- 
zurufen, brav „3.1415926..." in die Tasta- 
turzu hacken. Nun, für dieses Problem gibt 
es eine überraschend einfache und ele- 
gante Lösung. Ersetzen Sie alle INPUT- 
Statements durch Befehle der Form XX = 
USR(0). Dann starten Sie vom Programm 
aus das unten aufgelistete Maschinenpro- 
gramm „INPUT.FORM“ (Adresse ist un- 
wichtig, das Programm ist relokativ ge- 
schrieben und setzt den USR-Vektor auto- 
matisch richtig) und Sie können Ihrem Pro- 
gramm ganz nach Belieben Formeln zu 
futtern geben. Wie funktioniert es? 


DEMO.INPUT.FORM 


(Applesoft-BASIC-Listing) 


REM Demoprogramm zu INPUT.FORM 


REM z.B. 'COS(4*ATN(1))' eingeben (= -1l) 
PRINT "Bitte numerischen Ausdruck eingeben"; 


X = USER (9) 

PRINT "Wert: "X 

END 

REM Niemand verbietet Ihnen, den 
REM USR-Ausdruck zu verschachteln 
X = USR {ß) = SIN (2 = USR (8) - 1) 
REM Auch das ist erlaubt! 
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Der USR-Befehl 


Wie Sie vielleicht wissen, funktioniert der 
USR-Befehl ähnlich wie der &-Befehl. Im 
Unterschied zu diesem wird jedoch der 
FAC1 (Floating Point Accumulator 1) mit 
dem Wert des Arguments geladen, erst 
dann erfolgt der Sprung an die vom USR- 
Vektor ($0A..$0C) angegebene Adresse. 
Ist die aufgerufene Routine abgearbeitet, 
wird der jetzige Inhalt des FAC1 als Wert 
der USR-Funktion übernommen. 


Das Programm 


Die unten aufgelistete Routine rettet zu- 
erst die Registerinhalte und den CHRGET- 
Pointer auf den Stack. Dann wird die 
ROM-Routine INLINE2 aufgerufen, die 
normalerweise BASIC-Programmzeilen 
einliest. Nun wird zuerst überprüft, ob 
nicht eine leere Eingabe erfolgte. Ist dies 
nicht der Fall, wird der String, der sich 
immer noch im INPUT-Puffer befindet, 
durch die PARSE-Routine geschickt. Die- 
se Routine konvertiert die BASIC-Key- 


words in die zugehörigen Tokens. Nun 
wird der CHRGET-Pointer auf den Anfang 
der nunmehr codierten Eingabezeile ge- 
setzt und die ROM-Routine FRMEVL (= 
Formula Evaluator) aufgerufen. Diese 
Routine klassifiziet einen Ausdruck 
(String- oder numerischer Ausdruck) und 
wertet ihn aus. Das Ergebnis befindet sich 
dann im FAC1 (wenn es ein numerischer 
Ausdruck war). 


Haben Sie es gemerkt? Wir sind schon 
beinahe fertig. Nun muß nur noch der 
CHRGET-Pointer auf seinen alten Wert 
gebracht werden, die geretieten Register 
müssen zurückgeholt werden, und der Ak- 
kumulator sollte noch das nächste Zeichen 
des Programmtextes enthalten. Letzteres 
erledigt die CHRGOT-Routine, so daß 
man sich auch noch ein abschließendes 
RTS sparen kann. Der restliche Code be- 
steht zum einen aus der INIT-Routine, die 
nach einem Start mit „BRUN“ den USR- 
Vektor setzt, und zum anderen aus den 
Abschnitten zur Fehlerbehandlung. Das 
alles ist nur 95 Bytes lang, also wirklich 
nicht allzu umfangreich. 


T.INPUT.FORM 


BSAVE INPUT.FORM, A768, L95 


ET TI SERIEN DE 2 ID EI 0 7 EI DEI 2 End 


INPUT-Routine für numerische # 
Ausdrücke: 


Syntax: X =USR (ß) 


1 
r 
3 
4 
5 
6 
7 
I) 
= 


E 3 
* 
= 
* 
Von Hans-Martin Eng, * 
Hirschberg, 18. 8. 1986 * 


FR 
= 


* 
* 


m 
[aan 


DE RZ 22 2 2 2 3 2 2% 2 2 3. 2 2022.22 2 2 32 2220 


ZI kur FH 


ORG $398 


E 3 

USRVEKT EQU $BB 

CHRGOT EQU $B7 

CHRPNT EQU $B8 

ERRFLAG EQU $D8 

INBUF EQU $209 


HrebbtbHbbePpr e$ 
CV 40905 DD 
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TurtleGraphics-Library-Paket 


von Dieter Geiß 









Turtle-Utilities für Fenstertechnik und Apple-Maus in einfa- 
cher und doppelter Hires-Grafik für Pascal 1.2 auf Apple 
Ile/c mit Maus oder Joystick. 2 Disketten mit umfangrei- 
chem Manual, DM 98,-. Unter Pascal 1.1 mit 64K nur ein- 
geschränkt lauffähig 









Im einzelnen bietet das Paket folgende Möglichkeiten: 






























28 INLIN?® EQU $D52E 
21 PARSE EQU $D56C — volle Kompatibilität mit der alten „TurtleGraphics“ 
en En ee — alle zeitkritischen Funktionen in reinem Assembler programmiert 
24 _HANDLERR EQU S$F2E9 — Benutzung der zweiten Hires-Seite ($4000-$5FFF) möglich 
a FIXRTS EQU $FF58 — für Apple IIc und Apple Ile mit erweiterter 80-Zeichen-Karte Be- 
+ Fi D “ 
en nutzung der doppelten Hires-Grafik mit 560 x 192 Punkten 
28 + So ist das Programm aber voll bzw. 16 neuen Farben möglich 
29  x* relokativ! schnelle Prozeduren zum Zeichnen eines Punktes oder einer Linie 
0300: 48 Er en PHA Benutzung mehrerer Zeichensätze gleichzeitig 
B3B1: 8A 32 TXA Scrolling des Hires-Schirms oder eines Teils in vier Richtungen 
Be en ac drei verschiedene Schriftarten: Fett-, Breit- und Proportional- 
#303: 28 58 FF 34 JSR FIXRTS Er Bo 
0306: BA 35 TSX schrift, beliebig mischbar (acht Möglichkeiten) 
18 r 36 CLC : spezielle schnelle Ausgabe von Text 
308: BD FF 37 LDA: $FF,X ‚ Absicht! er 
ae ne Cursor bei Eingabe frei programmierbar 
B30B: 69 15 39 ADC #ENTRY-INIT-5 Ein-/Ausgabe von INTEGER-, CHAR-, STRING- und REAL- 
BsßD: 85 PB 40 STA USRVEKT Werten im Grafikmodus 
. | 
Er = “ > = ne a Menüzeile wie beim Macintosh 
314: 85 BC 43 STA USRVEKT+1 Pull-down-Menüs 
#316: 68 44 PLA 
| 31T. Au m er _ Laden und Speichern von Fenstern (Windows) 
0318: 68 46 PLA — Öffnen von Fenstern 
B319: 69 e2 2 | — Aktivieren und Deaktivieren von Fenstern 
48 * Rette Register und CHRGET-Pointer j R j 
B31A: SA 49 ENTRY TXA — Verschieben und Vergrößern/Verkleinern von Fenstern 
PS1B: 48 5P PHA — Scrolling von Fensterinhalten in allen vier Richtungen 
B31C: 98 Sl TYA 
B31D: 48 52 PHA — Umfangreiche Demos als Quelltexte. 
Ös1E: AS BB 55 LDA CHRPNT Hüthig Software Service - Postfach 10 2869 - 6900 Heidelberg 
0329: 48 54 PHA 
321: A5 BY 55 LDA CHRPNT+1 z 
0323: 48 56 PHA 
57 * und los geht's! 
| 58 *» '#' als Prompt-Character 
0324: A2 AZ 59 FORMGET LDX +!" 
0326: 20 RE DS 6% JSR INLIN2 .. : 
0329: AD BB 2 61 LDA INBUF H- 
62 x keine Eingabe => Fehler uthig =18/@ TIP 
B32C: FB 12 63 BEQ ERROR J 
64 x Keywords codieren j “u 
Ö32E: 28 SC D5 65 JSR PARSE Io Duni ' 
66 #* CHRGET-Pointer umlenken 
0331: A9 FD 87 LDA #<INBUF-3 Wegen der 
0333: 85 B8 68 STA CHRPNT neuen Programme 
0335: A9 Bl 69 LDA #>INBUF-3 
0337: 85 B9 7% STA CHRPNT+1 paßt die neue 
Al * numerischen Ausdruck auswerten Begleit- 
#339: 28 7B DD 72 JSR FRMEVL 
TS * Stringausdruck? | diskette 
33C: 24 11 74 BIT $11 nur zur 
75 * nein, 0.K. 4. Auflage. 
B33E: 18 12 78 BPL OKAY 
ai * ONERR-Flag gesetzt? 
d34B: 24 DE 78 ERROR BIT ERRFLAG 
0342: 18 65 79 BPL ERROR1 
80 x wenn ja, übergib an ONERR-Routine 
0344: A2 FE 81 LDX *$FE 


0346: AC E9 F2 82 JMP HANDLERR 
83 * Sonst gib '?REENTER' aus 


0349: A9 EF 84  ERRORI LDA +#$EP 
B34B: AB DC 85 LDY #$Dc 
934D: 26 3A DB 86 JSR STROUT 


57 *» und mach's noch einmal. 


0359: FB D2 88 BEQ FORMGET 

89 * Pointer und Register zurückholen 
0352: 68 98 OKAY PLA 
0353: 85 B9 9] STA CHRPNT+1 OS — 
0355: 68 92 PLA Apple D 3.3 
0356: 85 B8 93 STA CHRPNT 
nn 5 3 Tips und Tricks 
0359: A8 95 TAY 
B35A: 68 96 PLA vonU. Stiehl 
Ö35B: AA 97 TAX 


3., völlig überarb. Aufl. 1986, X, 209, 

mit zahlreichen, ausführlich kommentierten 
Programmlistings, kart., DM 28,— 
Begleitdiskette ebenfalls DM 283,— 


98 * Fertig, 
835C: 4C B7 BO 99 


weiter im Programmtext 
JMP CHRGOT 





Dr.Alfred Hüthig Verlag - Postf. 102869 - 6900 Heidelberg 1 
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CP/M 3.0 beim Apple Il 


Was hat sich geändert? 


Seit einiger Zeit sind für den Apple Il 
Zusatzkarten erhältlich, die einerseits 
einen schnellen Z80H-Prozessor (6/8 
MHz) und andererseits 64K RAM on 
board haben. Insbesondere der letzten 
Eigenschaft wegen ist es möglich, 
eine stark erweiterte (und verbesserte) 
CP/M-Version zu benutzen - eben CP/M 
3.0. Hier soll untersucht werden, worin 
sich das neue CP/M von dem gängigen 
CP/M 2.2x unterscheidet. 


Um das CP/M 3.0 lauffähig zu machen, ist 
— wie bereits gesagt — eine geeignete Zu- 
satzkarte erforderlich. Es gibt sie als reine 
CP/M-3.0-Karte (z.B. vom ALS-Typ) - 
hiermit kann kein „normales“ CP/M 2.2x 
gefahren werden — oder als Z80+-Karte 
(vgl. Testbericht im Peeker 6/86), auf der 
beide CP/M-Versionen lauffähig sind. Na- 
türlich braucht man auch die entsprechen- 
den Disketten mit dem CP/M-3.0-System. 
Der Anwender wird zunächst nach dem 
Boot-Vorgang seine „alten“ GP/M-Kennt- 
nisse ausnutzen und ein gehaltvolles 
„DIR"-Kommando eingeben, danach 
noch eine „TYPE“-Anweisung ausprobie- 
ren und vielleicht schon das Gefühl haben, 
das neue CP/M 3.0 im Griff zu haben: Weit 
gefehlt. 

Schlägt man nämlich im CP/M+ User's 
Guide unter dem Stichwort „DIR“ nach, 
so findet man überraschenderweise 9 Sei- 
ten Erläuterungen zu diesem Kommando 
und all seinen Optionen. Selbst bei dem 
scheinbar wenig ausbaufähigen „TYPE“ 
und anderen Standard-Kommandos sind 
viele neue Details vorhanden. 

Nach diesem Stimmungsbericht erübrigt 
es sich schon fast zu sagen, daß eine 
Reihe neuer (transienter) Kommandos 
hinzugefügt worden ist. Es führt kein Weg 
daran vorbei: Zumindest den User’s Guide 
muß man sich genauer ansehen. 
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von Dr. H. Kersten und Dr. H.-J. Ganser 


Es gibt weiterhin noch den Programmer’s 
Guide (u.a. Beschreibung der BDOS- 
Schnittstellen) und einen System Guide 
(BIOS-Anpassungen und anderes). Die 
Anzahl der BDOS- und BIOS-Funktionen 
hat sich gegenüber der Betriebssystem- 
Version 2.2 erheblich vergrößert — einige 
Informationen hierzu in einem späteren 
Abschnitt. 


Ein kurzer Blick über den Zaun: Wer - wie 
die Autoren — auch mit PC-DOS und MS- 
DOS beim blauen 16-Bitter arbeitet, stellt 
fest, daß beim CP/M 3.0 in vielen Details 
Vergleichbares vorliegt: Umleiten von 
Standard-Ein- und -Ausgabe, zusätzlich 
ladbare System Extensions, wahlweise 
Start von Batch- oder Command-Files, 
Grundformen eines Suchpfades, Zeit- und 
Datum-Stempel bei Files etc. 

In anderer Hinsicht bleibt natürlich alles 
beim alten: Max. 64K adressierbarer Spei- 
cher (der aber weitestgehend dem Benut- 
zer zur Verfügung steht, da das Betriebs- 
system fast vollständig in der 2. Bank un- 
tergebracht ist), die typischen GP/M-User- 
bereiche statt der schönen Subdirectories 
(wie etwa auch bei PRODOS). 

Wie schon im Peeker-Testbericht 6/86 er- 
wähnt, ist die Verarbeitungsgeschwindig- 
keit beim Z30H-Prozessor mit der hohen 
Taktfrequenz beachtlich und braucht kei- 
nen Vergleich zu scheuen. 


Erwähnenswert ist noch, daß manche 
Händler schon Patches für den Betrieb 
von doppelseitigen Laufwerken bis 160 
Tracks mitliefern. Die Verwendung von 
Laufwerken mit größerer Kapazität muß im 
Zusammenhang mit CP/M 3.0 dringend 
empfohlen werden, da die System-Soft- 
ware schon ca. 330K umfaßt. Selbst wenn 
das Assembler-Paket abgerechnet wird, 


bleiben noch 250K für die transienten Sy- 
stem-Kommandos. Das erweiterte DIR- 
Kommando benötigt alleine schon 16K. 
Sind Sie noch interessiert? Dann gehen 
wir zu Einzelheiten über. 


1. Editieren von Kommandozeilen, 
Mehrfach-Kommandos, 
On-Line-Hilfe 


Keine Ausflüchte: Mit dem Editieren von 
Eingaben ist es beim alten CP/M 2.2 
schlecht bestellt. Das Einfügen von Zel- 
chen in eine fehlerhafte Kommando- oder 
Datenzeile ist praktisch nicht möglich. Im 
Normalfall muß die Zeile komplett oder 
zumindest teilweise neu eingetippt 
werden. 

Beim CP/M 3.0 hat sich die Lage erheblich 
verbessert, wie man an folgender Tabelle 
erkennt. Von CP/M 2.2x bekannte Codes 
sind nicht aufgeführt: 


CTRL-A: Cursor <- (ohne Löschen) 

CTRL-F: Cursor -> (ohne Löschen) 

CTRL-B: Cursor Zeilenanfang/-ende 

CTRL-G: Zeichen löschen (Wordstar) 

CTRL-X/CTRL-K: alle Zeichen links/rechts 
vom Cursor löschen 

CTRL-U: Zeile komplett löschen, in 
Editierpuffer übernehmen 

CTRL-W: Zeile aus Editierpuffer auf 
Bilaschirm bringen 


Wichtig: Bei allen Editierfunktionen ist der 
automatische Einfügemodus eingeschal- 
tet. Diese Option läßt sich leider nicht ab- 
schalten. Dennoch kann man hiermit und 
mit den teilweise unüblichen Editiercodes 
leben. 

Eine schöne Neuerung: Mehrere Kom- 
mandos auf einer Zeile sind möglich. Bei- 
spiel: 


IrPE TESKLBATLITTEE TESH BRAIN DIR 
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Das Zeichen „!“ trennt die einzelnen Be- 
fehle voneinander. 

In Anbetracht der schon kurz erwähnten 
Neuerungen bei vielen Kommandos könn- 
te der Eindruck entstehen, daß nun ermü- 
dendes Blättern in den Handbüchern an- 
gesagt ist: Auch hier gibt es Positives zu 
berichten. Mit dem HELP-Kommando 
kann man sich eine Kommandoliste aus- 
geben lassen oder sofort Syntax und Er- 
lauterungen einzelner Kommandos ab- 
rufen. 


2. Umleiten der Standard- 
Ein- und -Ausgabe 


Mit den neuen Anweisungen PUT und 
GET kann man die Datenströme umleiten 
— unter CP/M 2.2 war dies nur mit Zusatz- 
programmen (z.B. MicroShell oder Unix- 
Tools) möglich. Beispiel: 


BUNT ZEONSOLE ZOUTEUTZTOZZEIEE 
DESI.ET 


Hiermit wird die Console-Ausgabe des 
nächsten Kommandos oder des nächsten 
Programms in die Datei TEST.TXT umge- 
leitet. Fügt man bei der Zeile noch die 
Option [SYSTEM] an, so bleibt die Umlei- 
tung bis zur nächsten PUT-Anweisung be- 
stehen. 

Besonders schön ist die Umleitungsmög- 
lichkeit im Zusammenhang mit dem DIR- 
Kommando (Diskettenverzeichnis als 
Datenfile) oder für das Verketten von Pro- 
grammen: Die Ausgabe des 1. Programms 
ist die Eingabe des 2. Programms. Für die 
letzte Anwendung muß dann noch vor 
dem Start des zweiten Programms die Ein- 
gabe umgeschaltet werden. Diese gene- 
relle Möglichkeit wird wie folgt angewählt: 


GET CONSOLE 
TEST.TXT 


INPUT FROM FILE 


Danach wird das 2. Programm gestartet 
und entnimmt seine Eingabedaten, die 
sonst von der Console kommen, dem an- 
gegebenen File. Auf diese Weise kann 
man eine (über einen Zwischenfile simu- 
lierte) Pipeline aufbauen. Auch bei GET ist 
die [SYSTEM]-Option erlaubt. Statt 
„CONSOLE OUTPUT“ ist auch „PRIN- 
TER OUTPUT“ möglich, statt Umleitung 
über Files ist bspw. „PUT CONSOLE 
OUTPUT TO PRINTER" statthaft. 

Am Ende dieser GET- und PUT-Anwei- 
sungen sind noch weitere Optionen anfüg- 
bar: z.B. mit oder ohne Echo auf dem 
Bildschirm, Filtern von nicht druckbaren 
Zeichen. 

Mit der erwähnten SYSTEM-Option kann 
man offensichtlich Ähnliches erreichen 
wie früher mit SUBMIT und XSUB - abge- 
sehen von veränderlichen Parametern. 
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Das SUBMIT-Kommando existiert beim 
CP/M 3.0 natürlich auch, muß aber nur 
dann angewendet werden, wenn wirklich 
Parameter auszutauschen sind. Alle ande- 
ren Fälle erledigt man durch Umleitung. 


3. Userbereiche, File-Search 
und Diskettenwechsel 


Eine wichtige Verbesserung: Man sieht 
stets am Prompt, in welchem Userbereich 
man sich befindet. Z.B. wird (bei Laufwerk 
A:) nach USER 2 mit ZA> geantwortet. 
Statt USER 2<Return> kann der Benutzer 
auch die Kurzform 2A:<Return> ein- 
geben. 

Erfahrungsgemäß wird beim OP/M 2.2 sel- 
ten mit mehreren Userbereichen gearbei- 
tet — insbesondere deshalb, weil dann 
dauernd benötigte Utilities in mehreren 
Userbereichen vorhanden sein müssen 
oder ihr Start ein Umschalten der User- 
nummer voraussetzt. 

Dies ist bei CP/M 3.0 ganz unproblema- 
tisch, da hier eine Suchautomatik einge- 
baut ist: Wird z.B. von Usernummer 2 in 
Laufwerk B: ein Programm - ein transien- 
tes Kommando — gestartet, sucht CP/M 
3.0 nach folgendem Schema: 


File unter User 2 vorhanden? 








ja: nein: 





File als SYS-File unter User | 
| abgelegt? 





Starten 









nein: 










Meldung/Datei 
' nicht gefunden | 





Das gleiche Schema gilt, wenn von ir- 
gendeinem Programm aus ein Datenfile 
verlangt wird. 

Das alles ist zwar nützlich, aber noch nicht 
aufregend. Spannend wird es jetzt: Mit 
dem SETDEF-Kommando kann für den 
Aufruf von transienten Kommandos ein 
Suchpfad definiert werden, auf dem die 
gleichen Userbereiche bei mehreren Lauf- 
werken abgesucht werden. Ist z.B. irgend- 
wann vorher 


SEIDEF&ALC: 


eingegeben worden, so wird zunächst das 
aktuelle Laufwerk (angedeutet durch «, 
im Beispiel oben B:) in der Reihenfolge 
User 2 / User O durchsucht, danach Lauf- 
werk A: User 2 / User O, schließlich Lauf- 
werk C: User 2 / User O0. Bis zu 16 Lauf- 
werke können in den Suchpfad eingebaut 
werden. 

Alles in allem ist SETDEF ein Feature, an 
das man sich sehr schnell gewöhnen 
Kann. 

Genauso steht es mit dem folgenden: 
CP/M 3.0 erkennt wie sein Vorläufer, ob in 


in 
» 
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einem Laufwerk die Diskette gewechselt 
wurde. Statt aber dieses Laufwerk als 
„Nead Only“ zu klassifizieren (wie bei 
CP/M 2.2), wird die Diskette neu eingelogt 
und ist ohne weiteres beschreibbar. Die 
Eingabe von CTRL-C ist überflüssig. 
Nachteil dieser Methode: Auch beim Nur- 
Lesen einer neuen Diskette wird das Log- 
In ausgeführt, was z.B. bei einem simplen 
DIR-Kommando und einer vollen Diskette 
die Geduld strapaziert. 

Die Eingabe von CTRL-C hat hier eine 
etwas andere Funktion: Hätte man eine 
Diskette mit dem SET-Kommando als 
„Nead Only“ deklariert, könnte man dies 
durch CTRL-C wieder aufheben. Wird der 
Read-Only-Status explizit gesetzt, geht 
CP/M 3.0 natürlich nicht einfach durch ein 
automatisches Log-In darüber hinweg. 


4. Volumes, Dateien, Attribute, 
Zeitstempel und Passwords 


Jetzt geht es in die vollen: CP/M 3.0 ist 
u.a. in der Lage, Dateien mit Datum- und 
Uhrzeit-Eintragungen zu versehen, Dis- 
ketten einen Volumenamen zuzuordnen 
und Disketten oder einzelne Dateien mit 
Passwords zu schützen. 

Zunächst zu den Volume/Disk-Labels. Mit 
SET B: [NAME=BACKUP.A17] erhält 
die Diskette in Laufwerk B: den Namen 
BACKUP.A17. Dieser Name wird im Di- 
rectory gespeichert. Für Volumenamen gilt 
die gleiche Bildungsregel wie für 
Dateinamen. 

Nun zu Passwords bei Disketten. Mit SET 
[PASSWORD=XYZ] erhält die Diskette im 
aktuellen Laufwerk ein Password (hier 
XYZ, max. 8 Zeichen), d.h. alle weiteren 
Kommandos, die das Volume betreffen 
(z.B. Ändern des Labels, Ändern der 
Struktur der Zeitstempel u.a.), können nur 
nach Eingabe des korrekten Passwords 
ausgeführt werden. 

Um einzelne Files mit Passwords zu ver- 
sehen, muß erstens die Diskette ein Pass- 
word besitzen, zweitens die Anweisung 
SET [PROTECT=ON] gegeben werden. 
Danach kann man z.B. mit SET *.COM 
[PASSWORD=XYZDF] alle COM-Files 
mit dem Password XYZDF belegen. Die 
Password-Sperre kann man auf bestimmte 
Zugangsformen einschränken. Mit SET 
*.COM IPASSWORD=XYZDF,PRO- 
TECT=WRITE] wird die Sperre auf den 
Zugangstyp „WRITE“ beschränkt. Der fol- 
genden Tabelle entsprechend bedeutet 
dies, daß das Password vor einem 
Schreibvorgang, dem Löschen oder Um- 
benennen der Datei angegeben werden 
muß. 


Zugangsformen bei Password-Sperre: 


READ Lesen, Schreiben ,, Löschen, Umbenennen 
WRITE Schreiben, Löschen, Unbenennen 
DELETE Löschen, Umbenennen 
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Um Password-geschützte Dateien benut- 
zen zu können, kann entweder mit SET ein 
Default-Password für eine ganze Gruppe 
von Files (z.B. die COM-Files im Beispiel) 
oder bei jedem Fileaufruf das betreffende 
Password explizit angegeben werden. 
Beispiel: 


SET [DEFAULT=XYZDF] Default Password 


PIP B:= A:x*,C0M 
bzw. 
PIP B:= A:#*,C0OM;XYZDF explizites Password 


CP/M 3.0 betrachtet das Password als Be- 
standteil des Filenamens. Aus „Drive:File- 
name.Extension“ wird jetzt „Drive:Filena- 
me.Extension;Password“, Schließen Sie 
aber daraus nicht, daß das Password Im 
Inhaltsverzeichnis in „Klarschrift” abge- 
legt wird. Das soll zum Thema Passwords 
genügen. 

Neben den bekannten Fileattributen DIR, 
SYS und RO, RW kennt CP/M 3.0 noch 
ARCHIVE=ON und ARCHIVE=OFF, so- 
wie 4 vom Benutzer selbst definierbare 
Attribute Fi — F4. Das ARCHIVE-Attribut 
ist im Zusammenhang mit PIP wichtig. |st 
ARCHIVE=ON, so setzt PIP nach jedem 
Kopiervorgang ein entsprechendes Flag 
im Directory und zeigt damit an, daß die 
betreffende Datei gesichert wurde. Bei der 
ersten Änderung dieser Datei wird vom 
System das betreffende Flag zurück- 
gesetzt: PIP kopiert beim nächsten 
BACKUP-Vorgang diese Datei erneut, 
verzichtet jedoch im anderen Fall richtiger- 
weise darauf, da ja die alte (bereits gesi- 
cherte) Fileversion immer noch aktuell ist. 
Vorteil: Eine Verkürzung der Backup-Zei- 
ten. Die Attribute F1 — FA kann der Benut- 
zer für eigene Markierungszwecke ver- 
wenden. 


Nun noch zu Zeit- und Datum-Stempel. 
Mit der DATE-Anweisung ftransientes 
Kommando) kann die Systemzeit gesetzt 
oder abgefragt werden (setzt keine Hard- 
ware-Uhr voraus). CP/M 3.0 protokolliert 
bei allen Dateien wahlweise entweder Da- 
tum und Uhrzeit der Dateierstellung 
(CREATE) oder des letzten Zugrifis (AC- 
CESS). Zusätzlich kann die letzte Dateiän- 
derung eingetragen werden (UPDATE). 
Mit dem viel strapazierten SET-Komman- 
do kann die gewünschte Wahl getroffen 
werden. Mit SET [CREATE=ON,UPDATE- 
=ON] entscheidet man sich für die Kombi- 
nation CREATE/UPDATE. 

Das alles setzt aber voraus, daß das Direc- 
tory der Diskette zur Aufnahme von Zeit- 
stempeln vorbereitet wurde. Es muß ja 
zusätzlich Platz reserviert werden. Hierfür 
existiert das INITDIR-Kommando. Statt 
wie bisher 4 Dateieinträge pro 128-Byte- 
Record werden nun nur noch 3 angelegt, 
die 4. Position bleibt frei für die Zeitstem- 
pel der drei vorausgehenden Einträge. Mit 
INITDIR kann ein noch leeres Directory 
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oder ein bereits gefülltes ohne Fileverluste 
angepaßt werden — vorausgesetzt, die 
DIR-Sektoren auf der Diskette bieten noch 
genügend Platz. Keine Angst: Bei Platznot 
bleibt das alte Verzeichnis unangetastet! 


5. SUBMIT, Batch-Processing 
und „Hello“-File 


Das von CP/M 2.2 bekannte SUBMIT- 
Kommando hat hier eine schöne Neue- 
rung erfahren: In einem SUB-File können 
sowohl Kommandos wie auch Datenzeilen 
enthalten sein, (Früher war hierzu XSUB 
erforderlich). Mehr noch: Es erfolgt eine 
automatische Umschaltung von SUB-File 
auf CONSOLE. Ein Beispiel ist sicher in- 
struktiv: Nehmen wir an, in TEST.SUB ste- 
hen folgende Zeilen: 

PROG7Z 

<12 

<23,ABCD,-9 

DIRB: 

DIR A: 

Nach dem Kommando SUBMIT TEST wird 
zunächst PROG77.COM geladen. Voraus- 
gesetzt, dieses Programm möchte Daten 
von der Tastatur lesen, so werden ihm die 
mit „<® beginnenden Zeilen übergeben, 
als wären sie auf der Tastatur eingegeben 
worden — das Zeichen „<“ wird heraus- 
gefiltert, macht also die Zeilen nur als 
Datenzeilen kenntlich. Verlangt PROG77 
nur 2 Eingabezeilen — wie im Beispiel — 
und endet anschließend, so werden von 
CP/M 3.0 die nachfolgenden DIR-Kom- 
mandos ausgeführt. Möchte PROG77 da- 
gegen noch mehr Eingaben haben, so 
schaltet CP/M 3.0 automatisch auf die Ta- 
statur um, da in der SUB-Datei nun Kom- 
mandos (DIR) folgen. 

Würde andererseits PROG77 nur eine ein- 
zige Eingabezeile benötigen, würde das 
Betriebssystem die 2. Datenzeile überge- 
hen. Eine feine Sache! 

Im Beispiel sind keine variablen Parameter 
im SUB-File vorhanden: Sie werden wie 
beim alten CP/M angewendet; insofern 
also nichts Neues. 

Jede SUB-Datei kann intern weitere SUB- 
MIT-Kommandos enthalten: eine Schach- 
telung (mit Rückkehr) ist erlaubt. Beim 
CP/M 2.2 bedeutet ein neues SUBMIT 
stets das Ende des vorhergehenden. 


Nach dem Boot-Prozeß versucht das Be- 
triebssystem, einen bestimmten SUB-File 
zu finden: PROÖFILE.SUB. Diese Datei ent- 
hält die ersten auszuführenden Komman- 
dos — wie STARTUP bei PRODOS oder 
HELLO bei DOS. Dies scheint eine etwas 
einfachere Prozedur zu sein, verglichen 
mit AUTORUN beim CP/M 2.2, das ja 
ebenfalls dem Zweck dient, ein Turnkey- 
System aufzubauen. 


Ein letztes Feature, das wie einige andere 
sehr an das Konkurrenzprodukt von „Big 
Blue“ erinnert: Beim alten CP/M können 
nur transiente Kommandos — also COM- 
Files — durch Angabe ihres Namens ge- 
startet werden. Beim CP/M 3.0 ist das 
zunächst auch so. Mit dem SETDEF-Kom- 
mando kann man aber angeben, daß auch 
SUB-Dateien durch Eintippen des Na- 
mens „gestartet“ werden. Zusätzlich legt 
SETDEF in einem Befehl fest, in welcher 
Reihenfolge bei Namensgleichheit vorge- 
gangen wird. Beispiel: SETDEF [ORDER- 
=(SUB,COM)]. Hierdurch können von 
jetzt ab auch SUB-Dateien wie erläutert 
gestartet werden. Wäre im obigen Beispiel 
neben der Datei TEST.SUB auch noch 
TEST.COM vorhanden, so würde das Be- 
triebssystem entsprechend dem SETDEF- 
Kommando zuerst TEST.SUB bearbeiten. 
Erst wenn kein TEST.SUB zu finden ist, 
wäre TEST.COM an der Reihe. Die Vorge- 
hensweise ist also die gleiche wie bei MS- 
DOS. 


6. Sonstige transiente 
Kommandos und Utilities 


Beim DIR-Kommando und einigen ande- 
ren Kommandos unterscheidet CP/M 3.0 
zwischen „built-in“ und „transient” Kom- 
mandos. Das vom alten CP/M bekannte 
DIR (mit Wildcards) ist Bestandteil des 
CCP (= Console Command Processor), 
wird also direkt ausgeführt, ohne etwas 
von der Diskette zu laden, und ist vom Typ 
„built-in“. Mit den vielen Zusatzoptionen 
beim CP/M 3.0 ist das aber platzmäßig 
nicht mehr zu machen, Konsequenz: Wird 
eine Sonderoption vom Benutzer einge- 
tippt, wird das „built-in DIR“ durch ein 
„transient DIR“ verstärkt (im DIR-Listing: 
DIR.COM). DIR kann beim CP/M 3.0 u.a. 

— die Userattribute Fi...F4 anzeigen 

— den Datum-/Zeitstempel abbilden 

— Verzeichnisse mehrerer Disks auf ein 
Mal ausgeben 

— Filelängen, Password/Protection Modes 
anzeigen 

— alle oder einzelne Userbereiche durch- 
laufen 

— ausschließende Dateiangaben verwen- 
den, z.B. bedeutet ‚DIR [EXCLUDEI 
*.COM' alle Files außer x. COM 

— vorab Form-Feeds senden, Paging nach 
n Zeilen ausführen. 

In der folgenden Abbildung (Abb. 1) ist ein 
Auszug aus dem Inhaltsverzeichnis einer 
typischen GP/M-3.0-Diskette abgedruckt. 
Das built-in DIR zeigt normalerweise nur 
Files mit dem Attribut „DIR" an, also keine 
„SYS“-Files. Genau umgekehrt liegt der 
Fallbeim Kommando DIRS bzw. DIRSYS. 
(Anmerkung: Die Datei LOG.DAT wurde 
mit PUT CONSOLE OUTFUTTTOZEILE 
LOG.DAT und dem DIR-Kommando er- 
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Inhaltsverzeichnis einer CP/M-3.0-Disk 


(Auszug) 
Directory For Drive A: User 
Name Bytes Recs Attributes Prot Update ‚Acoasa 

CPM3 SYS 16Kk 128 Sys RO None 

DATE COM 4k 22 Dir RW Write 11/83/85 99:00 

DIR COM 16k 126 Dir RW Write aT/ı8/86 18:57 

GET COM 8k 51 Dir RW Write 

HELP COM 8k 56 Dir RW Write 

HELP HLP 62k 488 Dir RW Arcv Write 97/18/86 18:14 6#7/10/86 18:18 

INITDIR COM 32k 258 Dir R# Write 

LINK COM 16k 123 Dir RW Write 

LOG DAT Bk ® Dir RW Arcv None B7/10/86 18:56 97/19/86 18:56 

PUT COM 8k 55 Dir RW Write A7/1a/86 18:56 

RENAME COM 4k 23 Dir RW Write aT/ıB/B6 18:21 

SAVE COM 2k 14 Dir RW Write 

SET COM 12k 8l Dir RW Write #7/18/86 18:52 
Write ar/ıB/86 18:12 


SETDEF COM AK 32 Dir RW 


Total Bytes 
Total 1K-Blocks 


I 4 
A 
a 
[e}} 
I 


Abb. 1 


zeugt; bei der Herstellung des DIR-Li- 
stings hat sie deshalb noch OK Länge.) 


Bemerkenswert: Zum Lieferumfang von 
CP/M 3.0 gehört das Assembler-Paket 
von Digital Research, bestehend aus 
MAC/RMAC  (Macro-Assembler), SID 
(Debugger), LiB{rary-Manager), LINK(er) 
und XREF (Cross Reference). 

SID hat im Gegensatz zu DDT die Mög- 
lichkeit, permanente Breakpoints zu set- 
zen, kann Symbol-Tabellen laden, ist aber 
ein 8080-Debugger wie DDT und somit 
nicht Z80-fähig. LIB kann jede Library (z.B. 
von Sprachcompilern nach Microsoft- 
Standard, etwa FORTRAN-80, COBOL-80 
usw.) wie eine Datenbank indizieren, d.h. 
der LINKer muß die betreffende Library 
nicht sequentiell durchforsten (was ja z.B. 
bei FORTRAN eine respektable Pause er- 
zwingt), sondern kann gezielt auf die Mo- 
dule zugreifen, die wirklich benötigt wer- 
den. Das bewirkt verkürzte Laufzeiten bei 
LINK. Beispiel: Fortran-Programm mit nur 
einem PRINT-Statement und dem Gompi- 
ler FORTRAN-80: 


LINK.COM 
Library nicht indiziert: Zeit: 625 
Library indiziert: Zeit: 49s 


Der Vorteil wird aber erst beim Linken 
größerer Programmpakete und umfangrei- 
cher Libraries richtig deutlich. 


Einige weitere Features bei anderen Kom- 
mandos in Stichworten: 

ERA(SE) kann mit der CGONFIRM-Option 
laufen, d.h. die Frage „Löschen Ja/Nein” 
erscheint bei jeder einzelnen Datei. 
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Total Records = 
al Used/Max Dir Entries For Drive A: 


2495 Files Found = 29 
80/ 128 


REN(AME) läßt in beschränktem Maße 
Wildcards zu. 

Das alte Sammelkommando STAT ist hier 
auf verschiedene Kommandos verteilt 
worden, z.B. auf SHOW (SPAGE, LABEL, 
USERS, DRIVE), SET (Fileattripute), DE- 
VICE (Zuweisung von Einheiten, war bei 
der getesteten Version nicht implemen- 
tiert); dies ist allerdings auch mit einer 
Inflation der Anzahl möglicher Optionen 
verbunden. 

Die Standardroutinen ED.COM und PIP. 
COM sind verbessert bzw. erweitert wor- 
den: PIP z.B. beinhaltet die schon genann- 
te A(rchive)-Option zum schnellen File- 
und Disketten-Backup und kann Files zwi- 
schen beliebigen Userebenen kopieren. 
ED hat offenbar als wesentliche Neuerung 
die Möglichkeit zum Verschieben von Zei- 
lenblöcken erhalten. 

Es gibt aber aus Anwendersicht auch 
Nachteiliges zu berichten. Das vertraute 
SAVE-Kommando z.B. funktioniert hier 
ganz anders. Aus Gründen, die mit dem 
CCP zusammenhängen (s. unten), muß 
man SAVE schon starten, bevor im Spei- 
cher die „SAVEnswerten” Daten erzeugt 
werden. Man muß sozusagen schon vor- 
her wissen, ob hinterher eine Situation 
entsteht, in der ein Speicherbereich gesi- 
chert werden soll. Den einfachsten Fall 
stellt das Arbeiten mit SID dar: Zuerst 
SAVE-Kommando, dann SID starten, Ver- 
arbeitung ablaufen lassen, SID beenden; 
nun meldet sich wie aus heiterem Himmel 
das SAVE-Kommando automatisch zurück 
und will Speicherlänge, Dateinamen, etc. 
wissen. Umständlich — aber wahrschein- 
lich nicht anders zu realisieren! 


7. Standard-Software 
und Kompatibilität 


Getestet wurden u.a. Wordstar 3.0, dBase 
II und Turbo-Pascal. Bei keinem Pro- 
grammsystem tauchten Schwierigkeiten 
auf, 

Wie schon vorab vermutet, lief das ohne- 
hin schnelle Turbo-Pascal wegen der ho- 
hen Taktfrequenz noch um einiges 
schneller. Die numerische Geschwindig- 
keitssteigerung um den Faktor 3-4 (Soft- 
card 2 MHz gegenüber CP/M+ mit 6/8 
MHz) konnte bei Verarbeitungen im Spei- 
cher (allerdings nur in der TPA-Bank) 
praktisch bestätigt werden. 

Problematisch mit der Kompatibilität zum 
„alten“ CP/M wird es aber, wenn Pro- 
gramme nicht die Standard-BDOS- und 
-BIOS-Schnittstellen benutzen oder sich 
quasi als „Ersatz-CCP" etablieren wollen. 
Beispiel hierfür ist das System Power, mit 
dem man einen vollen Absturz erlebt. 
Auch das MicroShell-Paket stürzt ab, 
wenn versucht wird, Shell-Files mit Con- 
sole-Eingaben abzuarbeiten. 

Ein wesentlicher Teil der Möglichkeiten 
gerade dieser beiden Programme ist aber 
beim CP/M 3.0 schon im System inte- 
griert, so daß der „Abschied“ nicht sehr 
schwer fallt. 

Nicht ganz so leicht fällt der Verzicht auf 
GBASIC: Da die Umschaltroutine zum 
6502 hier an anderer Stelle (und in einer 
anderen Bank) liegt, kommt GBASIC lei- 
der nicht zu seinen Applesoft-Routinen. 
Ob noch weitere Inkompatibilitäten beste- 
hen, konnte von den Autoren nicht geprüft 
werden. Vielleicht haben einige Peeker- 
Leser schon Erfahrungen in dieser Rich- 
tung gesammelt. 


8. Assembler-Schnittstellen, 
BDOS- und BIOS-Funktionen 


Zwei Begriffe vorab: Der Speicherbereich 
von 64K auf dem Apple Motherboard wird 
als „Apple-Bank“ bezeichnet und hat die 
Banknummer 0. Die zusätzlichen 64K auf 
der Z80H-Karte werden „TPA-Bank“ ge- 
nannt: Die Nummer dieser Bank ist 1. 
(Theoretisch kann CP/M 3.0 noch weitere 
Bänke verwalten.) Wie wird zwischen den 
Bänken umgeschaltet? Mit einem Z80- 
OUT-Befehl, der sonst beim CP/M 2.2 nie 
verwendet wird, schreibt man eine O oder 
eine 1 auf einen Z80-Port, der nur aus 
einem Flip-Flop besteht. Dessen logischer 
Zustand selektiert dann die physikalische 
Speicherbank O oder 1. 

Nun zu BDOS und BIOS. Das BDOS (der 
geräteunabhängige Teil von CP/M) wurde 
stark erweitert, Die höchste vergebene 
BDOS-Funktionsnummer ist 152; freilich 
klaffen bis dorthin riesige Lücken — und 
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doch kommen etwa 70 Funktionen zu- 
sammen. 

Der Zugriff bleibt allerdings wie von GP/M 
2.2 bekannt: Funktionsnummer im Regi- 
ster GC und notwendige Parameter in Regi- 
ster DE übergeben, dann „CALL 0005H“ 
und die „Antwort” steht in Aund HL. 

Hier einige der „Neulinge“: 


46: Get Free Disk Space 

Input: Drivein E 

Output: In den ersten 3 Bytes des DMA- 
Puffers steht (binar) die Anzahl freier (128- 
Byte-) Records. 


47: Chain to Program 

Input: OFFh in E, Kommandozeile im 
DMA-Puffer (Ende 00h) 

Wirkung: Die Kommandozeile und damit 
bspw. ein Programm wird ausgeführt, oh- 
ne daß der Benutzer eingreifen muß. (Ver- 
gleichbar mit dem CHAIN-Kommando 
beim alten INTBASIC) 


111/112: Print/List Block 

Input: Adresse des Character Control 
Blocks (GCB) in DE (CCB enthält Adresse 
und Länge eines Strings) 

Wirkung: String wird (Tabs expandiert) auf 
Bildschirm oder Drucker ausgegeben. 


152: Parse File Name 

Input: Adresse des „Parse File Name"- 
Control Blocks (PFCB) in DE. Der PFCB 
enthält die Adresse eines ASCIlI-Strings 
und die Zieladresse für einen FCB (= File 
Control Biock). 

Wirkung: Hiermit wird ein kompletter FCB 
(an der angegebenen Speicherstelle) aus 
der Information des ASCII-Strings (Filena- 
me, Drive,...) erzeugt. 


Diverse BDOS-Aufrufe beschäftigen sich 
mit der erweiterten Fileverwaltung: Disk- 
Labels, Passwords, Datumstempel etc. 
Die interessanteste Funktion ist aber wohl 
folgende: 


50: Direct BIOS Calls 

Input: Adresse eines BIOS-Parameter- 
Blocks {BPB) in DE, Dieser BPB enthält 
der Reihe nach die BIOS-Funktionsnum- 
mer und 7 Bytes zur Übergabe der Regi- 
ster A, BC, DE, HL. 

Wirkung: Ausführung der gewünschten 
BIOS-Funktion. Dabei übernimmt BDOS 
die Auswahl der richtigen Speicherbank. 


Eine Warnung: Versuchen Sie nie, eine 
BIOS-Funktion durch direkten Einsprung 
in die BIOS-Sprungleiste aufzurufen! Bei 
mehr als der Hälfte der Aufrufe landen Sie 
im Niemandsland, da neben der Sprung- 
adresse auch noch Informationen über die 
anzuwählende Bank (Apple-Bank oder 
TPA-Bank) benötigt werden. Verwenden 
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Sie ausschließlich die BDOS-Funktion 50 
= Direct BIOS Calls. 

Folgen wir der BDOS-Funktion 50 und 
lassen wir das BIOS Revue passieren. 
Damit uns das Umdenken nicht zu schwer 
gemacht wird, sind die ersten 16 Funktio- 
nen in Namen und Auswirkung gegenüber 
CP/M 2.2 gleich geblieben. Das BIOS 
wartet aber noch mit weiteren 19 Funk- 
tionsnummern auf (zumindest in der ALS- 
Version von CPM 3.0). 

Die Funktionen 17 bis 32 lassen sich in 
drei Gruppen einteilen: 


— Erweiterte Status-Funktionen: 

Der bisher nicht abfragbare Status einer 
seriellen Karte (AUX) und der Bildschirm- 
ausgabe (CON) werden durch die Funktio- 
nen AUXIST (18), AUXOST (19) und 
CONOST (17) erfaßt. 


— Die Verwaltung der Speicherbänke: 
Hierzu zählen MOVE (25), SELMEM (27) 
und SETBNK (28). MOVE nutzt den LDIR- 
Befehl des Z80 aus, um Speicherblöcke 
zu verschieben. SETBNK merkt sich die 
gewünschte Banknummer (0 = Apple- 
Bank, 1 = TPA-Bank), während SELMEM 
diese dann einschaltet. 


— Die (beim ALS-CP/M 3.0) nicht imple- 
mentierten Funktionen: 

Das sind folgende: XMOVE (Bank-zu- 
Bank-Transfer), FLUSH (Puffer säubern), 
MULTIO {mehrere Sektoren lesen/schrei- 
ben), TIME (Hardware-Uhr ), DEVINI und 
DEVTBL (Verwalten von Ein-/Ausgabeka- 
nälen) und drei weitere „leere“ Funktio- 
nen (einfacher RET-Befenhl). 
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Die Funktionen 33 bis 35 (AREAD, 
AWRITE, ACALL) betreiben die Kommuni- 
kation des Z80-Prozessors mit dem 6502- 
Prozessor. AREAD liest mit dem 6502 den 
Wert an der Adresse (HL) (Zeiger-Adres- 
sierung) in das A-Register ein. AWRITE 
schreibt umgekehrt von A nach (HL). 
ACALL läßt den 6502 ein Unterprogramm 
ausführen, dessen Adresse in HL überge- 
ben wird, 

„Wozu dieser Umstand?“ werden Sie fra- 
gen, „Ich lasse lieber gleich alles vom Z80 
erledigen.” Doch aufgrund der Speicher- 
organisation, die wir anschließend bespre- 
chen, erreicht der Z80 nicht alle Adressen 
in der Apple-Bank; hierfür ist der Umweg 
über AREAD und AWRITE erforderlich. 
Die Daseinsberechtigung von ACALL ist 
klar, wenn man weiß, daß das gesamte 
Disk-l/O stets von 6502-Routinen abge- 
wickelt wird. 


9. Boot-Vorgang und 
Speicherverwaltung 


Nach dem Einschalten liest der Apple wie 
üblich Spur O0 Sektor O nach $800 und 
springt nach $801. In dieser Routine ste- 
hen Informationen über Anzahl und Ziel- 
adresse der von den Systemspuren zu 
ladenden Sektoren. Nun werden die Pro- 
zessor-Umschaltroutinen (Z80 6502) in 
die Page 3 geschoben; erst dann beginnt 
die Suche nach der Z8S0OH-Karte. Diese 
übernimmt nach Ansprechen von $Cn0O 
das Kommando und versetzt den 6502 in 
den „Halbschlaf". Auf der Z80-Adresse 
0000h (entspricht Apple-Adresse $9000, 


CP/ M 3.0 startklar, Bank ® 


Z86-Page in allem ü . 6582-Page 


| RWTS im 6502-Code | 


RWTS-Patches/88 Tracks |87 
und z.B, RAM-Disk-Treiber 
'Rest' nicht belegt 


8F 














108, Link zur RWTS 


En 
|__Z88 <-> 65ß2-Umschaltung [93 
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s. unten) liegt der CP/M-Loader 
(CPMLDR) — ein Mini-CP/M mit allen 
Funktionen, um das eigentliche Betriebs- 
system (die Datei CPM3.SYS) von Disket- 
te zu laden. 


Kleinere Teilaufgaben (z.B. das Einschal- 
ten der 80-Zeichenkarte) werden dabei 
wieder von der kurzzeitig aktivierten 6502- 
GPU erledigt. 


In Abb. 2 ist die Belegung der Apple-Bank 
nach dem Laden der Systemspuren, in 
Abb. 3 nach Ablauf des CPMLDR darge- 
stellt. Hierbei ist auch gleich die etwas 
unorthodox anmutende Umrechnung der 
Adressen Z80 > 6502 erkennbar. 


Die letzten Aktionen beim Booten sind die 
Ausgabe der Startmeldung und das Aus- 
führen der BIOS-Funktion 0, des Kalt- 
starts. Dieser initialisiert den CP/M-Vor- 
satz (Adreßbereich 0 — 100h) und lädt den 
CCP aus der Apple-Bank. Vor dem übli- 
chen Prompt-Zeichen sucht der CCP — 
wie bereits geschildert — nach der Datei 
PROFILE.SUB und führt sie gegebenen- 
falls aus. 


Die TPA-Bank enthält nur kleine Teile von 
BDOS und BIOS sowie Datenpuffer. Der 
Rest steht für Programme zur Verfügung. 
Die 6/8MHz-Taktfrequenz der Z80H-Kar- 
ten gilt nur für diese TPA-Bank, In der 
Apple-Bank geht es mit den bekannten 2 
MHz gemächlicher zu. Anwenderprogram- 
me laufen also drei- bis viermal so schnell 
ab — sofern keine Systemfunktionen aus- 
geführt werden, die i.allg. in der Apple- 
Bank ablaufen. 


Um zwischen der TPA-Bank und der Ap- 
ple-Bank überhaupt kommunizieren zu 
können, verlangt CP/M 3.0 einen Spei- 
cherbereich, der von beiden Bänken aus 
zugänglich Ist, den sog. COMMON-Be- 
reich. Je nach Typ der Z8OH-Karte ist das 


ein Bereich bei den hohen Adressen, des- 
sen Länge hardwareabhängig ist. Er liegt 
physikalisch stets im RAM der Z80H-Kar- 
te. Der adressenmäßig parallel liegende 
Speicherbereich der Apple-Bank ist nicht 
vom Z80 (aber natürlich vom 6502) er- 
reichbar. Nebenbei soll noch erwähnt wer- 
den, daß die 2. Bank bzw. AK der Lan- 
guage-Card nicht benutzt werden. 


Die COMMON-Grenze bei 8000h gilt für 
die ALS-Karte. 


Interessant ist, daß auch nach dem Booten 
in der Apple-Bank eine Kopie des CCP 
gespeichert wird. Vorteil: Nach dem Ende 
eines transienten Kommandos oder eines 
Programms kann der CCP aus der Apple- 
Bank in die TPA-Bank gefahren werden, 
ein Nachladen von der Diskette ist über- 
flüssig. Diese Methode bringt Zeitvorteile. 
Da der CCP stets nach 100h in die TPA 
geladen, also wie ein transientes Pro- 
gramm behandelt wird, werden die vorher 
ab 100h stehenden Daten überschrieben. 
Mit diesem Hintergrund wird es Ihnen 
leicht fallen, die etwas umständliche Hand- 
habung des SAVE-Kommandos zu ver- 
stehen. 


Noch eine Bemerkung zur Speicherver- 
waltung auf Disketten: Hier gibt es aus 
Anwendersicht nichts Neues zu berichten. 
Die einzige Ausnahme ist die, daß bei 
Laufwerken mit über 40 Spuren eine 
Blocklänge von 2K zugrunde gelegt wird. 
Bei CP/M 2 2 wird hierbei oft 4K verwen- 
det, was gerade bei kleinen Files viel Platz 
verschwendet. Dadurch entsteht in der 
Praxis ein Problem: Wie liest man „alte“ 
Disketten mit 4K Blocklänge beim CP/M 
3.0 ein? Für diesen Zweck lag bei der 
getesteten Version die Utility IOFORMAT 
vor, mit der ein einzelnes Laufwerk unter 
CP/M 3.0 auf die größere Blocklänge ge- 
trimmt werden kann — sowohl für das Le- 
sen als auch für das Schreiben. 


Gesamtspeicher / Z80-Adressen 


Apple-Bank/Bank 


| vom Z8® nicht | + 


| erreichbar 
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Systemteile = 
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Festplatten- 
komplettlösung 


für jedermann 


Mit der Firma Frank & Britting GmbH, 
die auf Festplatten spezialisiert ist, 
konnten wir ein extrem günstiges 
Sonderangebot aushandeln, das ei- 
ne Festplattenkomplettlösung selbst 
für Apple-Besitzer mit kleinerem 
Geldbeutel erschwinglich macht. Sie 
können unter zwei Varianten wählen: 





Luxus-Lösung: 20-Megabyte-Fest- 
platte MDB20 (MDB = Mobile 
Datenbox) + Megaboard-Controller 
+ Handbuch + 3 Konfigurationsdis- 
ketten + Anschlußkabel + DB-Mei- 
ster-Dateiverwaltungsprogramm + 
Handbuch + 2 Programmadisketten 
zum Gesamtpreis von nur DM 3199, — 
inkl. MwSt. 

Standard-Lösung: 10-Megabyte- 
Festplatte MDB10 + Megaboard- 
Controller + Handbuch + 3 Konfi- 
gurationsdisketten + Anschlußkabel 
+ DB-Meister-Dateiverwaltungspro- 
gramm + Handbuch + 2 Programm- 
disketten zum Gesamtpreis von nur 
DM 2799,- inkl. MwSt. 

(jeweils 6 Monate Garantie). 


Wie wird bestellt? 


Sie senden Ihre Bestellung an den 
Hüthig-Software-Service. Sie erhal- 
ten dann von der Firma Frank & Brit- 
ting eine Vorausrechnung, nach de- 
ren Überweisung Ihnen von dort die 
MDB10 bzw. MDB20, der Megabo- 
ard-Controller, das Handbuch und 
die Konfigurierungsdisketten mit 6 
Monaten Garantie geliefert werden. 
Gleichzeitig erhalten Sie vom Hüthig- 
Software-Service das DB-Meister- 
Programm (2 Disketten und Hand- 
buch) in der für die MDB bereits an- 
gepaßten Version. Nach einer gering- 
fügigen Änderung im Hello-Pro- 
gramm können Sie diese Neuversion 
des DB-Meisters übrigens auch zu- 
sätzlich auf normalen 35-Spur-Lauf- 
werken einsetzen. 

Zur Bestellung können Sie eine der 
im Peeker eingehefteten Bestelikar- 
ten verwenden. Stichwort: 

1x MDB10-Sonderangebot 

für DM 2799, - 

oder 

1x MDB20-Sonderangebot 

für DM 3199,- 


SOFTWARE SERVICE 


Im Weiher 10 - 6900 Heidelberg 1 


Peeker 11/86 





Zubehör 


Neue Preise # 11 
Re Bei eiligen Rückfragen oder Bestellun- non ame 


Disk-Controller für Shugart-BUS Mainboard XT-256, 2088 CPU, OK (bis 256K-on board, oder 
640 K mit Addr. auf Karte aufr.) + Boot-ROM + 8 Slots geprüft 79,--/: 


- 35/40 Track Laufwerke Mainboard XT-256 mit 256 K-RAM, sonst. w.o., gepr 


- 88 Track Laufwerke e n e rre | C h e n £ ) | e U n S Ü 6 e r | e | ex Mainboard XT-640, 8088 CPU, OK (bis 640 K-on board) gepr. 89,-- 
-_ i Mainboard XT-640 w.o. jedoch 256 K-RAM best. + gepr 
Ben JaRREEE BRSDEEN DARLTEN Q Mainboard XT-640 w.o. jedoch 640 K - vollbest. und geprüft 
= inkl. Handbuch und Software Mainboard TURBO XT-640 -4,7/8 MHz, OK, best. + gepr 3 
Mainboard AT-1MB, 80286 CPU, 16/24 bit (mit Sockel f. 80287) 512 


. = best. (bis1MB aufrüstbar) +Boot-ROM+Uhr mit Akku+8 Slots, gepr. 1545,-— 
80 Zeichenkarte n. SEu A 6 1 1 2 4 h U e N d d It Ve r e rk . 6 e St! t 64KB-RAM-Chip-Aufrüstsatz (9 Stück) einzeln geprüft! X/A 37,-- 
= 4 Zeichensätze ( 2 » 2732 ) | | | | | . | | | | ! 256 KB-RAM-Chip-Aufrüstung (9 Stück) einzeln geprüft! X/A 8-- 
oe = = ö Disk-Controller gepr. (f. 2x360 KB-Drives), X 7,-- 
ERITREA STERN Disk Controller gepr. (f. 4x360 KB-Drives)(Extra Kabel=39,-), X 34,--/94,-— 
[73 .. " Disk-Controller gepr. (2x1,2 MB-Drives), A 187,-- 
ACCELERATOR 3,6MHz 5502C für II+ Harddisk-+Floppy-Controller (1 HD+2DD) gepr., A 697,-- 
U U ! Monochrome Karte geprüft, X/A 49,--/169,-- 
„ Monochrome Graph.+par.Print. Karte (Hercules comp.), X/A 55,--/179,-- 

Super-Serielle-Karte vollduplex Color RGB + Video Graphikkarte+Lightpen-Ausg., gepr..X/A 55, 
Parallel Printer-Karte gepr. o. Kabel (Extra Kabel=49,-),X/A 29,--/ 55,-- 


RS 232 Interface (2xRS 232, 1 davon bestückt), X/A 29,--/ 83,-- 
Wd-Karte (nackt Pressen Durchwahl (06221) 4892.06 a 52 
" 512K-RAM-Karte gepr. (OKB)(mit 64 KB-RAM bestückbar),X 55,--/117,-- 


” r Pr 3 MB-RAM-Erweiterungsk. gepr. (OK), (m.256 K-RAM bestückbar), A 337,-— 
AD/DA-Wandler 8 Bit/I6 Kanäle 2,5 MB-Multifunktionskarte, OK,+RS 232,+par. Printer, gepr,A 445,-- 
384K-Multifunktionskarte, RS 232, par. Printer. Interf., Game/Joystick Port, 
Bu E Real Time Clock gepuff.. OK+RAM-Disk/Spooler/Uhr Softw., X 55,--/218,-- 
TURBO-PASCAL 2.0 u. TOOLBOX Je 28, Disk Multi /O Karte (f. 2x360 K-Drive, 2xRS 232, 1xpar. Printer Int., 
Game/Joystick Port, Real Time Clock/Kalender gepuff.), X 59,--/219,-- 
Alle Karten aus eigener Fertigung und mit DRK 1/O w.o. sowie Color-Graphik/RGB+Composite+Monochrome 
R L-Karte gepr.,X 
hochwertigen IC-Fassungen und !.Wahl Bauele- Clock en Bffen geprüft, X 
menten bestückt. Keine Taiwanwarel!!! /O Plus-Karte, 2xRS 232, par. Printer-Interf., Game /Joystick Port, 
Real Time Clock gepuffert, geprüft, X 
\/O Plus-Karte, 2xRS 232 (1xbest.), par. Printer-Interf., 


GESCHÄFTSWELT - WISSENSCHAFT - (AUS)BILDUNG a ES LE KEne 


elle tele selstteitsl ann [el steleisicelutzslofeifeigeir:1elsil,@ (er. [Pgchte) 


Punkte - 16 Farben) +par. Printer Int., voll best.+gepr., X/A 69,--/685,-- 
Eprom Writer, (f. 4 St. 2716/32/64/128/256/512 gleichzeitig), X/A 444 
Prototype/Lochraster Leerkarte, durchkontaktiert, lang 64, 
Profi-Funktionstastatur ASCII + 15er Block ab 195,—— /dt. ab 225,-- 


für APPLE TI, ITIe 


R, S-Teilgelalle , 


mp//c-723 Tastatur 


135W/150W-Netzteil mit eingeb. Ventilator, kurzschlußf., X 195,--/215,-- 

FT 200W-Netzteil mit eing. Ventilator, kurzschlußfest, A 375,-- 

360KB-DiskdriveSlimline (TrackAccessTime <2mS),R/Wgepr., X/A 279,-- 

S OÖ WA R = TM 720KB-Diskdrive Slimline, 2x80 Tr., R/W gepr., X/A K Ki: oe 

|] /\ MN t & t © t 1,2MB-Diskdrive Slimline, 2x80 Tr.,R/W gepr., X/A 379,-- 

* = . .. 20MB-Harddisk, X/A 1.248,-- 

Ultraflache ASCII-codierte Tastatur für alle Software fü r Datenan alysen von Ateli 20 MB-NEC-Fesiplatte + DTC-Controller mit Kabel + Man., gepr., X 1.438,-- 
APPLE II PLUS und kompatible Computer. Die s Ka: B Drivecard 21 MB, Harddisk+Controller in einemanschlußfertig,X 1.47 
Tasten sind mit Goldkontakten und 100% ab- Das führende Statistik Software Haus in den USA BSR EM. Couesiier i 
riebfesten Kappen versehen. 13 Funktions- LVESTERRTO EST N VETEH WORT ESTEIH EX) 702 0,77. 15 

a ” 2 aslır 5 Met.-Gehäuse aufkl. (Pl.f.4-Einb.-Drives), solide Ausf., X=198,--/ A=298,-- 

Cursor-, Tab- und Del-Tasten können in drei Konkurrenzlose Leistung und Flexibilität zu PC/XT+AT - KOMPLETT-SYSTEME AUFGEBAUT UND GEPRÜFT 


XT-640, 8088 CPU (incl. Boot-Eprom) 256K-Ram im 


Ebenen mit je 5 ASCII-Zeichen belegt werden. konkurrenzlosen Preisen! IBM-look-like Met.-Gehäuse+Profi-Fkt. Tast.+135 W-Netzt.gepr. 849,-- 


Sonderbelegungen und Anpassung an andere Re- XT-640,w.0.+Contr.+360KBDrive+Color RGB+Vid. Graphik-Karte 1.147,—— 
- . . .. ’ = 2 i pr 
chner ist durch unseren Kundendienst möglich! Umfassende STATISTIK-Programmpakete für PC’s und Homecomputer: TEA WS 1ece 1 EIal GAICHIL Monachreme Korn 


Für ausführliches Info bitte Prospekt an- XT-640, 256 K-RAM+360 KB Drive+Disk Multi /O-+Color-Gr.-Karte 1.299,-- 


. fi r ie - ) 6 - - 
ER LEN TE Na Gera APP-STAT für APPLE II Computer ea neeeFennerDieciicr 7 200r- 


AT-1MB, 80286 CPU, 512 K-RAM, im IBM-look-like Met.-Gehäuse +Profi- 


mp//c-Datentechnik Postfach 4248 5814 Kerpen 4 (APPLESOFT BASIC) DM 269,— DIE TEET ROM Nenn AL Color SED SERSELSMEDINS gepr 20 


Besuchen Sie unsere Geschäftsräune in 5014 Kerpen-Brüggen, ra TREUE sen are; x A 
Heerstr. 392 von Di.-fr, 9.00-12.00 Uhr u. 14.00-12.00 Uhr ST AT E A ST fü rM aci ntosh DM 3 1 S) Aufpreis f. EGA anstatt Color Graph.-Karte, X/A 549,-- 
APPLE II+, IIe sind eingetragene Warenzeichen der Fa. APPLE Computer L) ee er orig. Microsoft Hb. (nur in Pe 
. . 8087-Arithmetik-Prozessor, 5 MHz, X 375,-- 

Unsere benutzerfreundlichen, menügesteuerten Programmpakete enthalten V 20-Prozessor, 8 Mhz x= 29,85 


PC 10-I1 512 K-RAM, AGA-Karte, dt. Tast.+Laufw.+20 MB-Festplatte 


sowohl grundlegende statistische Analyseverfahren (Deskriptive Statistik, T-Tests, *Conir.+ Monitor 


AMIGA-Commodore 


Korrelationen, Nicht-parametrische Verfahren, u.v.m.), als auch höhere multivariate | APPLE-BUS COMPUTERPLATINEN + PERIPHERIE LEER/BESTÜCKT 


A z & nr x M-board II 48K, gesockelt, vollbest. + gepr 57,--/337,-- 
Methoden (multiple Regression, mehrfaktorielle Varianz- und Kovarianzanalysen Wboeralieäkgesockavlbestsoehr „SB 
und mehr). Verarbeitung von Datenbeständen anderer Programme ist möglich. Supersans Neal Kuzschßlen SA=tS.- zw re 
ntwicklungsiochraster-Leerplatine durchkontaktie 


— Zu beziehen per Nachnahme oder Vorkasse (+ DM 5,— Versandkosten) bei: 16K-Speicher-Karte geprüft 


APPLE orig. 16K-Language Karte gepr. 98,-— 
: Controller DOSSS:Kansgeniün 
ontr ‚g- rü K _ 
LOLL+NIELSEN, Software-Vertrieb Auie-Conrollr DOB S2133-Kano gepr 241 1 
b) Erphi AFDC 2 Controller + Autopatch Softw.+Handbuch, gepr. 198,-- 
Hoheluftchaussee 83, 2000 Hamburg 20, Tel. 040/420 0347 Bat "Drucker Kants-Gapplar a To depr (Ei ar Tg 
8bit par. Int. + 64K-Buffer + Kabel gepr. (Grappler comp.) } 
Seriell-Interface-Karte V24 geprüft 


SIRTTESTTNTENTGIETEH RE TCEHe[:1e]0 
APPLE-Original Super-Seriell-Interface gepr 


80-Zeichen/24-Zeilen-Karte geprüft age 
für Apple I/+/e, BER al0fs; und compatible f] 802/24Z+64K-Ram+Softsw.-Karte best.+gepr. f. Ile 18,95/ 87,-- 
tigstellung unserer Mega Ramcard Il” etwas Zeit Mega Ramcard Il, 256 KB best.+Software+dt. Hb., (bis 1MBaufr) 49 
Und das hat sich gelohnt! Hast) alles für Inren APPLE uad noeh silniges menr... Clock Karte + Scfware +Manual, goprüfl Fe 
Sie finden bei uns Hardware, Software, Bücher und Zeitschriften. Wir be- AD/DA-SBit Karte+Software+ Manual, gepr. 
beweisen es: Hardware: RamWorks-Ili, RamFactor, ZRam-li, TransWarp, Phasor APOLLO//(48K) + UHF-Mod. + Gr/Kl vollbest. + gepr. 817,-- 
En Diversi DOS 2-C/4-C 15er-Block mit Funkt.-Tasten im „IBM-look like” Kunststoff-Gehäuse RT 
„ Apple Pascal 1.1 Software: Newsroom, PrintShop, Takel, DazzieDraw, Fantavision, Apollo Ile (128K)+802/24Z-Karte geprüft 
Apollo Ile (64K)+Disk II F+Contr.+12” Monitor 
Microsoft Softcard, CP/M 2.20, 2.23 ZBasic, IWT Logo, flztec-[C, Merlin.Pro, Orca/M, ProgramWriter, Disk//+Contr. + Kabel DOS 3.3 (Siemens) im Geh. 359,-- 
Disk//F-HS-80 Track im Gehäuse + Kabel f. orig. Contr. geeignet Ki:} 


= ng 
Erster aaa „little big Ableger 802/24Z-Karte + Softswitch-Schalter, gestochen scharf, gepr. 24,--/127,-- 
802/24Z-Softwitch Karte gepr. für Ile 15,--/ 39,-- 
IEEE-488 Int. Karte gepr. (Extra Kabel=45,--) 29,--/297,-- 
TA 18.981129. 
Sicher. - Wir haben uns bei der Entwicklung u. Fer- FAPEJPHÄE FH A SPEHTF EFF TR Speicher era Star Mana re 
- i r-Karte + war: nual, geprü -/. 
gelassen, damit Sie jetzt auch Zeit gewinnen. EPROM-Bumer ($716792/64) geprüft 30h 24.--1109-- 
Die Tests, aber auch die mitgelieferten Ramdisk- Wild Karte + Sofware+ Manual (nicht I), geprüft 1898) 
treiber-Programme für folgende Betriebssysteme, raten Sie gerne. Eine eigene Werkstatt für Reparaturen ist vorhanden. Lüfter aneipsbar(22OV) 
A le DOS 3 3 ta len ne 1.285,-- 
» APP j TimeMaster, Z-80plus, MultiRam RGB, MultiRam CH, Flipper usw... APOLLO// ASKF (dBk} vollbest = nenr, sop Kerbaard Br/Kl + Ei 
Aople ProDOS 1.01.11 hir führen alle Produkte der Firmen Applied Engineering, Checkmate Techn. Aufpreis f.o. Systeme von 48K zu 64K 
„» Apple rro U, 1. Cirtech, Street Electronics, Wideo-?” etc. Bitte komplette Liste verlangen ! Apcıio lie (BaK) volbest uad gapraft 
Apollo Ile (64K) +802/24Z-Karte gepr. 
Apple Pascal 1.2/64 K, 1.2/128 K AppleWorks, Mouselrite, MultiScribe, Supercalc, Jane, MacroWorks, Apollo I ASKR (64 K)volbestückt unggeprüf 
Apple Pascal 1.3/64 K, 1.3/128 K 3 3 
CP/M 2.2 für ChartWorks, FontlWorks, PinPoint, Jeeves, Kyan und Turbo Pascal, APPLE lle 128K+802/24Z Karte+Softw. 
> 7 » Disk-Drives voll APPLE 11,100%igcompatibel+R/Wgeprüft+Track@Sensor: 

i ‘ E Disk//(Siemens) im Geh. + Kabel 298,— 
Microsoft premium card, CP/M 2.26 MouseDesk, Mouselalc, ASCIH-Express.Pro, Let's Talk, Talk Back, DISK//F-HS (High Speed 1/2 Höhe) im Geh.+Kabel (Track Ab2mS) 318 
Microsoft Softcard II, CP/M 2.28 alle Beagle Brothers, Copy 11+6.6, Lockzmith 6.0, EDD IU+, usw... DIsk//F-HS-80 w.o. + Contr. + DOS 3.3 + CP/M Patch-Softw. 489, 

Disk 1l-2x80 Track 640KB f. Erphi Controller modifiziert, 0. Gehäuse 299,-- 


Sogar nach einem „Systemabsturz“ oder Betriebs- Wir haben ständig ca. 188 Titel an Lager. Zum Testen einfach vorbeikommen. Erphi DuoDisk 1,2 MByte im Gehäuse + Erphi-AFDC 3-Contr., gepr. 898,-— 


systemwechsel bleiben alle Dateien erhalten! Bücher: fllle Bücher zum Apple-Il sind bei uns ab Lager erhältlich. APPLE-.DOS 3.3 Manual engl = 25. Handbuch dt. K_ 
APPLE-Pascal Reference + Operating Manual engl. 


Peripherieslot und Speicherkapazität werden auto- Zeitschriften: Al+, InCider, NIBBLE, Open-Apple, Apple User, Peeker... APPLE-Fortran Manual engl. 


CP/M-Softcard Vol. | + Il, Manual engl. 


matisch erkannt, sodaß das lästige Eingeben ent- Spezialität: Modems, vom Alkkustikkoppler bis zum Deluxe Modell 80 Karte gepr. f. APPLE//c + RAM-Disk-Software + Hb. 


Macintosh Umrüstung von 128K auf 512K 


fällt. Werlangen Sie ausführliche Preislisten sowie Prospekte mit techn. Daten ! EPSON FX 85F/T+, 8bit/parallel 160 2/S. NLQ + IBM comp. 
EPSON FX 105+, 8bit/parallel 15” sonst w.o. 


Mega Ramcard Il“ istmitden erphi-AFDC2/AFDC3- Musicomp Computer + Zubehör, Bottmingerstrasse 1, CH-4102 Binningen EPSON LO.B00.24 Nacei 180 2/60 NLOSIBM comp. 


EPSON LQ-1000, wie 800 breite Aust. 


Controller vollständig kompatibel, u.v.m. ’ . 2.1000, wie 800 breite A 
Demo-Diskette = 4,50 (in Briefmarken) anfordern. Tel. 061747 05 06 Oeffnungszeiten: Di - Fr 14-18.30., Sa 10-16 Uhr eK 


er EraE = MX 80/82, FX/RX 80, FX 85 Spezialfarbband-K: tt 
Händleranfragen schriftlich erwünscht. nn 





BROTHER-Typenraddr. HR 15XL 8bit/par. neuestes Modell 


Wir führen verschiedene Monitore von Zenith, Phillips und Sanyo mi 
TTL (IBM Komp.) oder Coloreingang. Sowie umfangreiche Computer- 
Literatur (über 500 versch. Titel) — Bitte Preisliste anfordern! — 


isketten in Box + Aufkleber I. Wahl, 10er Pack/100er Pack./ Stückpreis: 
[u] BASF 3M FUJI DATA NEUTRAL 
7 Te]\1=2 
ale 


Mega Ramcard Il, 1MByte bestückt + Software 
(s.o.) + deutsches Handbuch, Il/+/e 878,- 
Mega Ramcard Il, 256K-RAM best. (bis 1 MB 
aufr.) + Software (s.o.) + dt. Hb., I/+/e 498,- 
Disk II-Siemens-Laufwerk im Geh.+ Kabel f. orig. + 
comp. Contr. geeignet, Il/+/e 298,- 
Disk II-Siemens-Laufw.+ Contr.+ Kabel, 

I/+/e 359,- 
Erphi-AFDC2-Controller + Autopatch Software 

+ deutsches Handbuch, Il/+/e 198,- 
Disk II-Philips Laufwerk 0. Geh., 2x 80 Track- 

640 KB f. AFDC2 0. 3 modifiziert, I/+/e | 298,- 
Erphi-DuoDisk 1,2 MByte im Gehäuse + 
Erphi-AFDG3-Controller, I/+/e 898,- 


REPARATUREN an Apple + Compatiblen Geräten + Zubehör 
führt unser Spezialteam garantiert zuverlässig + besonders 
kostengünstig aus.. Sprechen Sie mit uns. 
Kostenvoranschlag auf Wunsch! 


R, A-Yeigejalle , 


ILFSRIEI) 3,09/ 2,89 

1D, SS/DD 2,89/ 2,79 2,88/ 2,78 4,27/ 3,97 1,66/1,46 1,85/1,75 
2D, DS/DD 3,79/ 3,69 4,38/ 3,98 5,87/ 5,47 1,86/1,66 2,75/2,55 
1D/96TPi 3,89/ 3,59 4,88/ 4,68 

2D/96TPi 4,39/ 4,19 5,28/ 4,88 7,87/ 7,67 

2HD/1.2MB 7,59/ 7,29 8,98/ 8,18 12,87/12,57 


1X, Hard 4,29/ 4,19 BER 


8” > 
1X, SS/SD 4,49/ 4,39 6,68/ 6, 6,97/ 6,67 sind 
1D, SS/DD 4,79/ 4,59 8,58/ 8,28 = 
2D,DS/DD 6,49/ 5,99 9,88/ 10,17/ 9,77 Preise! 
1X, Hard 4,49/ 4,39 6,68/ 6,48 hy 
3a" 

Einseitig 5,89/ 5,59 6,78/ 6,08 7,67/ 7,17  4,36/ 4,16 
Zweiseitig 7,39/ 6,99 9,28/ 8,48 9,17/ 8,57  5,36/ 4,86 

514” Disketten-Archivbox für 10 Disks (1 St./10 St.) 4,75/43,50 
514" Disk-Karteikasten Kunststoff (ca. 80 Disk) 26,50 
51/4" Disk-Karteikasten Kunststoff (ca. 80 Disk) Rauchglas 45,95 
5'4” Disk-K.K.Rauchglas, abschließb. (f. ca. 80-100 Disks) 47,50 
2000 Bl. Tabpapier (24 cm x 12” einf.) weiß oder grün/weiß perf. 45,-- 
4000 Et.-Aufkl. doppelr. (107 x 36 mm auf 240 x 12” perf. Trägerp.) 66,50 
4000 Etik.-Aufkl. einreih. (107 x 36 mm auf 125 x 12” perf. Träg.) 65,-- 


OSZILLOSCOPE HAMEG ab Lager 
Bei Vorauszahlung frei Empfangsstation unversichert in der BRD, ausgenom- 
men Papier und Etiketten, sonst N.N. + V.S. ab DM 30,-— 
Öffnungszeiten: Mo, Di, Do, Fr v. 10-18 h, Miu. Sa v. 10-14 h, la Sa v. 10-18 h 
Telef. Best.: Mo, Di, Do, Fr von 10-19 h, Mi u. Sa wie Öffnungszeiten. 
ES LIES HÜNTCRCHTEREICHENTETEL EINUERETENICHKETTETCHe Nee 
unsere eigene Service-Werkstatt 
REPARATUREN an Apple + compatiblen Geräten + Zubehör führt unser 
Spezialistenteam garantiert zuverlässig + besonders kostengünstig aus. 
Sprechen sie mit uns. Kostenvorschlag auf Wunsch! 


R, A XeigeJalle a 


Es wird immer wichtiger, sich fachlich 
auf dem laufenden zu halten, 
damit man auch morgen noch 


fachlich mithalten kann. 
Abonnieren Sie „Peeker“, damit Sie 
immer aktuell informiert sind. 


Telex 0772642 aaa-d 
5 Habsburgerstraße 134 
7800 FREIBURG, Tel. (0761) 276864 
Bauelemente — Bausätze — uP’s 
Meßgeräte — Zubehör — Fachliteratur 
Fachgeschäft für Elektronik + Mikrocomputer 


Telex: 0772642 aaa-d 


Habsburgerstraße 134 
7800 FREIBURG, Tel (0761) 276864 
Bauelemente - Bausatze - uP's 
Meßgerate - Zubehor - Fachliteratur 
Fachgeschäft fur Elektronik + Mikrocomputer 
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Code Optimizer 





Mit Quelltext der Kyan-Library 


getestet von Matthias Meyer 
1. Einsatzgebiet 


Der Code Optimizer für Kyan-Pascal wur- 
de entwickelt, um den vom Compiler er- 
zeugten Objectcode wesentlich schneller 
und kürzer zu machen, als man es bisher 
von dieser Programmiersprache her ge- 
wohnt ist. Er ist ein wertvolles Hilfsmittel 
für diejenigen Pascal-Programmierer, de- 
nen der vom Standard-Compiler erzeugie 
Objectcode nicht schnell oder nicht spei- 
chereffizient genug ist, um die geforderte 
Aufgabe in Pascal zu lösen. Der Code- 
Optimizer enthält den Quellcode der ge- 
samten Kyan-Pascal Runtime-Library und 
führt zahlreiche Vereinfachungen an dem 
vom Compiler erzeugten Assembler- 
Quellcode durch, die nachfolgend im ein- 
zelnen beschrieben werden. 


2. Leistungsumfang 
2.1. Überblick 


Die Kombination aus Kyan-Pascal-Compi- 
ler und integriertem Assembler für die Ap- 
ple-Il-Familie wird mit diesem Software- 
Toolkit von Kyan, Inc. um eine weitere 
Zwischenstufe bis zur Erzeugung des ab- 
lauffähigen Maschinencodes erweitert: 
Das Pascal-Programm wird erst zu einem 
Assembler-Quellcode compiliert. Dieser 
wird darauffolgend so optimiert, daß nur 
die im Programm verwendeten Segmente 
der Runtime-Library in das Quellpro- 
gramm eingebunden und zahlreiche Ma- 
cro-Aufrufe zusammengefaßt werden. 
Schließlich wird das so entstandene opti- 
mierte Assembler-Programm zu ausführ- 
barem Maschinencode assembliert. 

Grundsätzlich ist der Optimizer in der Ent- 
wicklungsphase eines Programms völlig 
entbehrlich. Die Architektur des Kyan- 
Pascal-Systems erzielt in den meisten Fäl- 
len recht gute Ergebnisse. Compiler und 
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Assembler erzeugen einen schnellen und 
relativ kompakten Code. Probleme erge- 
ben sich erst dann, wenn die ÄAnwendun- 
gen in Größe und Komplexität wachsen 
und der Programmierer durch die Grenzen 
der Apple-Il-Hardware größere Einschrän- 
kungen in Kauf nehmen muß. Der Code 
Optimizer beseitigt hier gleich zwei Pro- 
bleme auf einmal: Einerseits wird der zur 
Verfügung stehende Speicherplatz besser 
genutzt, andererseits wird die Ablaufge- 
schwindigkeit vieler Pascal-Programme 
wesentlich erhöht. 


2.2. Arbeitsweise 


Der Code Optimizer arbeitet als unmittel- 
bare Zwischenstufe zwischen Pascal- 
Compiler und Macroassembler. Der Opti- 
mizer liest den vom Compiler erzeugten 
Textfile (P.OUT) und bewirkt folgendes: 


1. Er entfernt das Code-Segment zum La- 
den der Runtime-Library. 

2. Er fügt „Include“-Anweisungen für die 
zwei Library-Quellfiles und für den Optimi- 
zer-Macrofile ein. 

3. Er liest und überprüft den File P.OUT 
und ersetzt bestimmte Kombinationen von 
Compiler-Macros durch Optimizer-Ma- 
cros. 

A. Er erzeugt einen neuen Textfile mit dem 
Namen OP.OUT und speichert diesen auf 
der Arbeitsdiskette. 

5. Er ruft den Kyan-Macroassembler auf, 
der dann den File OP.OUT assembliert 
und einen optimierten Objectcode-File er- 
zeugt, welcher die Runtime-Library im Ge- 
gensatz zu normal compilierten Program- 
men nicht mehr benötigt. 


2.3. Was wird optimiert? 


Der Code Optimizer erzielt seine haupt- 
sächlichen Optimierungen in den nachfol- 
gend aufgeführten Gebieten. Es ist mög- 


lich, daß sich manche Gebiete überlap- 
pen; in diesen Fällen kommt es zu mehrfa- 
chen Optimierungen. 


1. Lokale und globale Variablen, denen 
eine Konstante zugewiesen wird. 

2, Globale Variablen, denen eine andere 
globale Variable zugewiesen wird. 

3. Verweise auf indizierte Variablen (Feld- 
elemente). 

A, Formeln, die Integer-Konstanten und 
globale Variablen beeinflussen. 

5. Globale Variablen und Konstanten, die 
zum Inhalt des Stapels addiert oder davon 
subtrahiert werden. 

6. (-R-Option aktiv): Verweise auf von 
Konstanten indizierte globale Variablen 

7. (-R-Option aktiv): Verweise auf von Va- 
riablen indizierte globale Variablen 

Diese Kategorien repräsentieren laut 
Handbuch ca. 70% der Ausführungszeit 
eines typischen Pascal-Programms. (Die 
-R-Option bewirkt, daß der Optimizer Be- 
reichsprüfungen bei Zugriffen auf Feldele- 
mente wegläßt.) 


2.4. Geschwindigkeitsmessungen 


Zur Demonstration findet man auf der Dis- 
kette ein einfaches Benchmark-Pro- 
gramm. Um auch den Vergleich mit ande- 
ren Pascal-Compilern zu ermöglichen, 
nachfolgend das kurze Listing dieses Pro- 
gramms:: 


PROGRAM SIEVE; 

(x SIEVE: STANDARD PASCAL BENCHMARK 
PROGRAM. CALCULATES # OF PRIMES 
BETWEEN ® AND 16384 (SIZEx2) «) 

CONST SIZE=8192; 

VAR 

COUNT, I,K, PRIME: INTEGER; 

F:ARRAY [ß..SIZE] OF BOOLEAN; 
BEGIN 

WRITELN('1l ITERATION'); 

COUNT :=ß: 

FOR I:=® TO SIZE DO F[1]:=TRUE; 

FOR I:=9 TO SIZE DO 

IF F[I] THEN 

BEGIN 
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PRIME:=I+I+3; 
K:=I+PRIME; 
WHILE K<=SIZE DO 
BEGIN 
F[K]:=FALSE; 
K:=K+PRIME 
END; 
COUNT :=COUNTHLI; 
END; 
WRITELN(COUNT, ' PRIMES') 
END. 


Das Programm berechnet die ersten 1899 
Primzahlen in folgender Zeit: 

Nicht optimiert: 16,2 Sekunden 

Optimiert: 6,9 Sekunden. 

Diese Zeiten wurden von mir mit einer 
normalen Stoppuhr auf einem nichtgetun- 
ten Apple Ile gemessen. Die Geschwin- 
digkeitssteigerung durch den Optimizer ist 
also beachtlich. 


Bewertung: Der Code Optimizer ist für 
denjenigen interessant, der noch mehr 
aus seinem Pascal-System herausholen 
möchte oder kommerzielle Programme auf 
der Basis dieses Pascal-Systems in der 
Entwicklung hat. Der Einsatz des Optimi- 
zers auf normalen 140K-Laufwerken er- 
scheint wenig sinnvoll. Zum einen wird ein 
weiterer großer Assembler-Quelilfile er- 
zeugt, der bei längeren Programmen 


DISK40 
Disketten-Organisationsprogramm für 
Apple Il+, Ile oder lic 


| von Hermann Seibold und Dipl.-Ing. 


Udo Marin, 1986, 
Programmdiskette mit Anleitung, 
DM 48,— 


DISK4O entstand aus der Analyse beste- 
hender Kopierprogramme und vereint in 


sich eine Vielzahl von Möglichkeiten, die 


sich als nützlich erwiesen haben. Durch 
eine einfach zu bedienende Menüführung 
können DOS-3.3-Disketten umfangreich 
bearbeitet oder kopiert werden. 

Zu den vielfältigen Möglichkeiten des Pro- 
gramms zählen u.a.: 


zwangsläufig zum Überlaufen der Diskette 
führt, zum anderen benötigt der Assem- 
bler zum Verarbeiten der gesamten 
Source Code Library wesentlich mehr 
Zeit, als dies beim normalen Compilieren 
der Fall ist. Dies sind jedoch Beschränkun- 
gen, die durch die Hardware bedingt sind. 
Eine Festplatte sollte hier Abhilfe leisten. 
Der Optimizer selbst macht jedenfalls den 
ohnehin nicht schlechten Kyan-Pascal- 
Compiler noch um einiges besser. 


3. Dokumentation 


Toolkit VI von Kyan, Inc. besteht aus einer 
einseitig beschriebenen Diskette und ei- 
ner Loseblattsammlung von 16 Blättern 
zum Einheften in einen Ordner, der das 
gleiche Format wie der des Kyan Pascal 
User Manuals hat. Ein von Kyan, Inc. für 
diesen Zweck vertriebener Ordner kostet 
US$ 9.95 incl. Porto. Man kann sich aber 
statt dessen auch einen gewöhnlichen 
DIN-A5-Ordner kaufen und alle Blätter 
nochmals lochen. 


Bewertung: Die englischsprachige Doku- 
mentation beschreibt alle wesentlichen 
Abläufe des Code Optimizers im Detail. Im 


Tabellarische Ausgabe der Disketten- 
belegung 
Ordnen des Catalogs 


„Undelete"n von versehentlich ge- 
löschten Dateien 


Vergleichen von Disketten, 
oder der DOS-Spuren 


Kopieren von Disketten, Dateien oder 
DOS-Spuren 


Formatieren von Daten-Disketten 


Erweitern auf 40 Spuren bei bestehen- 
den 35-Spur-Disketten 


Dateien 


Anhang findet man Hinweise, wie man den 
Optimizer in Verbindung mit den Toolkits || 
und Ill (MouseText und Advanced Gra- 
phics) anwenden kann und wie die Run- 
time-Module dieser Toolkits mit Hilfe der 
mitgelieferten Hilfsprogramme zu relozie- 
ren (im Speicher zu verschieben) sind. 
Dann wird die Speicherplatzeinsparung 
bei Verwendung des Optimizers in Verbin- 
dung mit den Toolkit-Demo-Programmen 
tabellarisch gegenübergestellt. Schließlich 
folgen noch Anmerkungen über die auf 
der Diskette enthaltenen Quellfiles. Die 
Dokumentation beantworiet alle wesentli- 
chen Fragen und ist daher als komplett zu 
bezeichnen. 


Ein-Blick 

Name: Code Optimizer Toolkit 

Konfiguration: Apple II/II+/IIe/IIc 
Kyan Pascal ab Vers. 2.8 
evti. weitere Toolkits 

Einsatzgebiet: Optimierte Compilierung 

Gesamtwertung: EEreT 

Dokumentation: *x#* (3ß Seiten) 

Zweckdienlichkeit; xxx#=x* 

Verpackung: “% 

Preis/Leistung: x+*= ($149.95) 

Hersteller: Kyan Software, Inc., 


san Francisco, USA 


(Die beste Bewertung entspricht 5 Sternen, ) 


Ändern des Boot-Programms 
File-Editor zum Editieren von Disketten- | 
Dateien | 


— Komfortabler Sektor-Editor für Hex- und 


ASCII-Darstellung 
VTOC-Editor, z.B. zur Freigabe der 
DOS-Spuren 


Schon nach wenigen Minuten können, 


d 


ank der ausfühlichen Beschreibung, Dis- 


Ketten nach eigenen Wünschen modifiziert 


oO 
g 


der Daten nach einem Disk-Crash wieder 
erettet werden. 


Hüthig Software Service - Postfach 10 28 69 - Heidelberg 1 
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1. Ausgangsposition 


Seit April 1986 gehört mein Apple 
Ile auch zum sog. Industriestan- 
dard. In Slot 2 befindet sich die 
C86-Erweiterungskarte der Firma 
A. Peter & Partner aus Berlin. Fast 
alle betriebssystemgestützten 
IBM-PC-Programme sind auf die- 
sem 16-Bit-Computer mit seinem 
eigenen Speicherbereich von 
512K lauffähig. 

Der zum Test benutzte Apple Ile ist 
folgendermaßen bestückt: 


Slot 1: Epson-Interface für Drucker 
FX-80+ 

Slot 2: C86-Karte mit 8086-GPU 
und 512K RAM 

Slot 3: 80-Zeichenkarte mit 64K 
Slot 4: Z-80-Softcard 

Slot 5: frei 

Slot 6: Apple-Interface für 2 Dis- 
kettenlaufwerke mit 140K, wahl- 
weise Erphi-Controller für 2 Dis- 
kettenlaufwerke mit 640K. 


Erhältlich zur 8086-Steckkarte sind 
die Betriebssysteme MS-DOS 
2.11 und CP/M 86 sowie 2 RAM- 
Floppy-Disketten für die Systeme 
CP/M 80 und DOS 3,3. Das Sy- 
stem CP/M 86 habe ich nicht mit- 
bestellt. 


2. C86-Karte als RAM- 
Disk 
2.1. DOS 3.3 


Die mitgelieferten RAM-Floppy- 
Disketten enthalten entsprechen- 
de Installierungsprogramme. Unter 
DOS 3.3 läßt man das Programm 
beim Booten durch das Hello-Pro- 
gramm aufrufen und erhält zusätz- 
lich zur RAM-Disk s3,d1 die virtu- 
ellen Disketten s1,d1 bis s1,d4. 
Die Übertragung von Files von den 
Disketten zu den RAM-Disks und 
zwischen den RAM-Disks ist mög- 
lich; Kompatibilitätsprobleme tre- 
ten dabei nicht auf. Es ist sogar 
möglich, mit einer Systemkonfigu- 
ration von 4 externen Laufwerken 
zu arbeiten. Folgende Disketten- 
aufrufe stehen dann zur Verfü- 


gung: 
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Ein Erfahrungsbericht 


von Dr.-Ing. H. Gäthje 


sid? G85 |25K 

si,d2: C86 128K 

s1,d3: 086 128K 

s1,d4: C86 128K 

s3,d1: 80-Zeichenkarte 64K 
s5,d1: Apple-Drive 1 140K 

s5,d1: Apple-Drive 2 140K 

s6,d1: Erphi-Drive 1 640K 

s6,d2: Erphi-Drive 2 640K. 

Dieses System ist nur für Freaks 
mit guten Nerven geeignet. Bei 
diesen vielfältigen Möglichkeiten 
des Datentransfers raucht nicht nur 
der Kopf, deshalb sollten die Blen- 
den an der Rückseite des Apple 
entfernt werden. Ein Anschluß ei- 
ner Speicher-Erweiterungskarte 
auf 1M ist auf der C86-Karte be- 
reits vorgesehen. Die C86 sollte 
dann extern gespeist werden, da- 
mit die Daten beim Ausschalten 
des Apple nicht verlorengehen. 


2.2 CP/M-80 


Wie aus der technischen Beschrei- 
bung hervorgeht, hat das Interface 
der C86-Karte eine eigene Deko- 
dierung des Apple-Adreßbusses, 
um Interferenzen mit anderen Slot- 
karten (Saturn 128K, Super Serial 
Card, Z80-Karte, 80-Zeichenkarie 
usw.) zu vermeiden. Sie ist des- 
halb für den Betrieb in Slot 2 vor- 
gesehen. Starten des mitgeliefer- 
ten Programms RF.COM unter 
CP/M-380 initialisiert die RAM-Disk 
F: mit 512K. Bei der unter DOS 3.3 
beschriebenen Konfiguration tre- 
ten Kompatibilitätsprobleme auf. 
Deshalb muß das Interface in Slot 
5 entfernt werden. Dann stehen 
die Floppies A:, B:, C: und F: zur 
Verfügung. Beim Transfer der Da- 
ten von C: nach F: stürzte das Sy- 
stem ab. Bei einer 512K-RAM- 
Floppy fallen die 64K der 80-Zei- 
chenkarte nicht besonders ins Ge- 
wicht. 

Schreibt man sich eine kleine 
SUBMIT-Datei, wird automatisch 
die RAM-Floppy F: initialisiert, die 
gewünschten Files in das RAM ge- 
speichert und das gewünschte 
Programm gestartet. Auch größere 
dBase-Dateien haben jetzt beim 
Sortieren ihren Schrecken ver- 
loren. 


3. C86-Karte als MS-DOS- 
Rechner 


Um mit dem Betriebssystem MS- 
DOS 2.11 zu arbeiten, wird die 
Bootdiskette in das Laufwerk A: 
gesteckt und ein Kaltstart durchge- 
führt. Der Apple wird für die C86- 
Karte vorbereitet. Nach erfolgtem 
Booten ist ein Diskettenwechsel 
erforderlich. Diese Diskette enthält 
das für den Apple modifizierte MS- 
DOS-Betriebssystem. Nach dem 
Drücken der Return-Taste wird 
MS-DOS automatisch initialisiert, 
zusätzlich wird eine RAM-Disk C: 
eingerichtet. Die AUTOEXEC.BAT- 
Datei ist so gestaltet, daß man sich 
nach dem Lauf in der virtuellen 
Disk C: befindet. Der freie Spei- 
cherplatz auf der RAM-Disk C: be- 
trägt 380K. Mit dem Editor EDLIN 
ist diese Datei leicht zu ändern. Die 
angeschlossenen Laufwerke ha- 
ben die Bezeichnung ‚A:’ und ‚B!'. 
Sind Apple-Laufwerke vorhanden, 
so steht eine Kapazität von 133K 
pro Laufwerk zur Verfügung. Ein 
neuer Diskettencontroller ist nicht 
erforderlich. 


Es ist möglich, komplette Anwen- 
dersoftware, z.B. dBase Il oder 
Multiplan, in die RAM-Disk zu ko- 
pieren. Beim Bearbeiten der 
Dateien bzw. Spreadsheeis und 
Laden der Programme ist der Ge- 
schwindigkeitsunterschied zum 
CP/M-System enorm. Die CPU 
8086 ist mit 8MHz getaktet. Damit 
stellt der „MS-DOS-Apple® den 
IBM-PC in den Schatten (Anmer- 
kung: Beruflich arbeitet der Verfas- 
ser mit einem IBM AT 02). Fast alle 
MS-DOS-Kommandos können 
aufgerufen werden. Dateiverzeich- 
nisse (Subdirectories) sind auf 
Diskette und RAM-Disk mit dem 
Befehl MKDIR zu errichten. Damit 
wird für die bisherigen CP/M- 
USER mit Hilfe dieser Karte eine 
neue Ordnung eintreten. Die Um- 
stellung zur neuen MS-DOS-Be- 
fehlsstruktur ist nicht schwierig, 
zum Kopieren ist nur eine andere 
Denkrichtung nötig. Hierzu ein 
Beispiel: 


MS-DOS auf dem Apple Ile 


CP/M-80: 

PIP B:NEU.TXT=A:ALT.TXT 
MS-DOS: 

COPY  A:ALT.TXT B:NEU:TXT 
Der FORMAT-Befehl ist bei den 
Apple-MS-DOS-Disketten für die 
Apple-Laufwerke nicht anwendbar. 
Mit einem Bitkopierer unter DOS 
3.3 ist eine Kopie der Systemdis- 
kette zu erstellen, anschließend 
werden mit dem ERASE-Befehl 
unter MS-DOS die vorhandenen 
Dateien gelöscht. 

Optional ist eine Disketten-Con- 
troller-Karte erhältlich, die es er- 
möglicht, sowohl DOS-3.3-Format 
als auch IBM-Format zu lesen und 
zu beschreiben. 


4. Gesamtbewertung 


Wer einen Apple Ile mit einer Z80- 
CPU-Steckkarte besitzt und nach 
einer Speichererweiterung Aus- 
schau hält, sollte DM 998,- inve- 
stieren und zur C86-Karte greifen. 
Mit dem Kauf des MS-DOS-Be- 
triebssystems laufen IBM-Pro- 
gramme, die nicht auf den speziel- 
len Zeichensatz oder die Grafik 
des IBM zugreifen, ohne Kompli- 
kationen. Die zusätzlichen Kosten 
für die reine Speichererweiterung 
sind minimal. Für den kommerziel- 
len Einsatz ist dieser „erweiterte 
Apple“ nicht geeignet. Das Risiko, 
daß ein gekauftes Anwenderpro- 
gramm, das für IBM oder Kompati- 
ble geschrieben wurde, nicht zur 
Zufriedenheit arbeitet, ist zu groß. 
Für den Apple-Freak jedoch sollte 
diese Karte eine Herausforderung 
sein: er kann sich mit noch weite- 
ren Betriebssytemen „herum- 
schlagen“. Auch TURBO-Pascal 
läuft unter MS-DOS und auf der 
C86. 


Wer in seinen Apple Ile und in die 
Peripherie schon ca. DM 8000, - 
gesteckt hat, kann heute nicht 
mehr auf einen IBM-Kompatiblen 
umsteigen. Er ist vorerst mit der 
C86-Karte besser bedient und 
kauft sich in einem Jahr den 32- 
Bit-Rechner! 
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AUFTRAG FÜR KLEINANZEIGEN 


Bitte veröffentlichen Sie in der nächsterreichbaren Ausgabe nachstehenden 
Text unter folgender Rubrik: 


[| suche Hardware [I] suche Software [1] Verschiedenes 
[] biete Hardware I] biete Software LJ Chiffre 






















Gelegenheitsanzeigen 


Sie können unter dieser 
Rubrik zu einem besonders 
günstigen Preis 


@ Ihre Hardware und 
Software verkaufen 


@ Ihre Hard- und Software | _ 
suchen 242224349 DEEKER 94 
@ Kontakte knüpfen und | 


vieles mehr 


Bitte jeweils 32 Buchstaben pro Zeile-einschließlich Satzzeichen und Wort- 
zwischenräume. Bitte Absender nicht vergessen. Mindestens 2 Zeilen. 
Chiffregebühr DM 6,— zuzügl. MwSt. 


“ reeker- ni 





Zu der im Peeker, Heft ‚set ________ erschienenen 





Musteranzeige privat 


1 Druckzeile a 32 Buch- 
staben nur DM 5,50 
zuzügl. ges. MwSt. 
Mindestens 2 Druckzeilen 


Beispiel: 


Anzeige über 





bitte ich um detaillierte Information. 
Ich wünsche L[] Prospekt, Datenblatt U Preisliste D schriftliches Angebot 7 tel. Rückruf 





| gebe ich neben- 
stehende Bestellung 
unter Anerkennung 
Ihrer in der Anzeige 
genannten Liefer- und 
Zahlungsbedingungen 
auf. 














nur DM 18,81 inkl. MwSt. 


& Produkt-Karte 


Unterschrift (für Jugendliche unter 18 Jahren der Erziehungsberechtigte} 


Musteranzeige gewerblich 


1 Druckzeile a 32 Buch- a en DEEKER 4 
staben nur DM 11,— zuzügl. 


ges. MwSt. Mindestens 
2 Druckzeilen 
Beispiel: 






Neu im Angebot: Professionelle, 
separate Tastatur für Apple Il plus 
16 Funktionstasten und separatem 
Ziffernblock. 

| Fa. Keyboard & Co. 


nur DM 62,70 inkl. MwSt. 







Ich interessiere mich für Beiträge über 
DI Apple L] Mac U Atari m 


DD Info -Karte 
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h. 





| Bei Angeboten: Ich bestätige, daß ich alle 






Vorname, Name 





PLZ/Ort 


Bitte veröffentlichen Sie den um- 
stehenden Text von 
aA____ DM in der nächsterreich- 
baren Ausgabe vom Peeker 


Zeilen 









Rechte an den angebotenen Sachen besitze 


Datum Unterschrift 





ZYPYIY 








ZIYIIY 


& Umfrage-Karte 


Vorname, Name 





Firma 








Straße 





PLZ/Ort 


Telefon mit Vorwahl 


= 
: 
T 
3 
F 
“ 
ä- 


| wünschen 


Karte bitte vollständig ausfüllen 


Anschrift der Firma angeben, bei der Sie “ 
bestellen bzw. von der Sie Informationen 


Karte bitte vollständig ausfüllen 


Vorname, Name 


Firma 


Straße 
PLZ/Ort 


Telefon mit Vorwahl 
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Produkt- 
Karte 








Wünschen Sie 
weitere Informatio- 
nen zu einer der im 
Heft erschienenen 
Anzeigen? 


Nichts einfacher als 
das. Produkt-Karte 
ausfüllen, frankieren 
und an den 
Inserenten (nicht an 
die Peeker-Redaktio! 
senden. 


Vorher aber nicht 
vergessen: 

Kreuzen Sie an, 
welchen Informations- 
wunsch Sie haben. 


Damit erleichtern Sie 
dem Hersteller 

eine gezielte Beant- 
wortung Ihrer Anfra 


Zum Schluß tragen 
Sie auf der Rück- 
seite die genaue 
Anschrift des 
Inserenten und Ihrer 
Absender ein. 


PEEkEi 











PER 





Ein Expertensystem 


getestet von Dagmar Berberich 


1. Gegenstand 


Die Firma Data Becker kündigt ihr 
Programmpaket XPER als „Exper- 
tensystem” und „Einstieg in das 
faszinierende Gebiet der künstli- 
chen Intelligenz“ an. 

Was ist ein Expertensystem über- 
haupt? Expertensysteme sind Pro- 
gramme, die Informationen über 
bestimmte Themengebiete ge- 
speichert haben. Aus diesen Be- 
reichen kann der Anwender in ei- 
nem Frage-und-Antwort-Modus 
gezielt Informationen abrufen. Vie- 
le dieser Systeme sind bereits mit 
Datenmaterial „bestückt", z.B. Sy- 
steme zur automatisierten Diagno- 
seerstellung in der Medizin. 

XPER ist dagegen ein frei program- 
mierbares System, d.h. der An- 
wender muB zunächst alle Infor- 
mationen zu dem Gebiet, das er 
mit Hilfe von XPER bearbeiten 
möchte, „per Hand" eingeben. 
Dadurch ist XPER aber auch viel- 
seitiger anwendbar als vorgegebe- 
ne Informationssysteme. Ist ein 
solches „Basiswissen“ program- 
miert, kann XPER anhand der ge- 
speicherten Daten einen Such- 
baum erstellen und ein gewünsch- 
tes Objekt näher bestimmen, Auf 
diese Weise können Objekte oder 
Werte gesucht und verglichen wer- 
den, Übereinstimmungen und Un- 
terschiede zu anderen Objekten 
können ermittelt werden, die ein- 
zelnen Bearbeitungsschritte und 
das Endergebnis der Bestimmung 
können ausgedruckt werden. 


2. Lieferumfang 


Zum Preis von DM 298,- liefert 
Data Becker eine einseitig bespiel- 
te Programmdisketie und ein 
deutschsprachiges, 158seitiges 
Handbuch in einem festen Ring- 
buchordner. Die Diskette ist an- 
geblich kopiergeschützt und soll 
sich beim Kopierversuch selbst 
zerstören. Aus diesem Grund bie- 
tet Data Becker umsichtigen Kun- 
den zum Preis von DM 20,- eine 
Sicherungskopie der Programm- 
diskette an. Von unserer Original- 
diskette ließ sich mit dem Disket- 
tenkopierprogramm „Superquick"“ 
jedoch problemlos eine Backup- 
Kopie anfertigen. 

XPER läuft auf einem Äpple Ile 
oder |lc mit mindestens einem Dis- 
kettenlaufwerk. Insgesamt kann 
XPER in dieser Konfiguration 90 
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Objekte, 50 Variablen und 300 
Werte verarbeiten und mit 40 Zei- 
chen/Zeile wiedergeben. 


3. Dateneingabe 


Da XPER keine vorgegebenen 
Daten enihält, muß der Anwender 
alle Informationen, die dem Sy- 
stem zur Verfügung stehen sollen, 
selbst eingeben und damit das 
XPER-Basiswissen aufbauen. Da- 
bei sind 3 Typen von Informations- 
elementen zu unterscheiden: Ob- 
jekte, Variablen und Werte. 

Als Objekte des Basiswissens 
werden die Elemente bezeichnet, 
die näher beschrieben werden sol- 
len („Gegenstände“ der Informa- 
tionsverarbeitung), z.B. verschie- 
dene Typen von Mikrocomputern. 
Variablen sind allgemeine Eigen- 
schaften der Objekte, die deren 
nähere Bestimmung und Auswahl 
ermöglichen. Je höher die Anzahl 
der Variablen ist, destö schneller 
und genauer läßt sich ein Objekt 
bestimmen. In unserem Beispiel 
mit den verschiedenen Mikrocom- 
putern könnte man als Variablen 
die Größe des Zentralspeichers, 
die Anzahl der Laufwerke, die 
Taktfrequenz, den Preis, die Auflö- 
sung des Bildschirms etc. festle- 
gen. Bei der Suche nach Objekten 
werden die Variablen als Auswahl- 
Kriterien in den Fragen, die der 
Computer dem Benutzer stellt, 
verwandt. 

Den dfritten Typ der Informations- 
elemente bilden die Werte. Sie 
stellen die möglichen Antworten 
auf die Fragen des Computers dar, 
d.h. sie bestimmen die Variablen 
näher. Dabei können jeder Varia- 
blen maximal 14 verschiedene nu- 
merische Werte zugeordnet wer- 
den. Jeder Nummer entspricht ei- 
ne bestimmte Antwort auf die Fra- 
ge nach der Variablen. In unserem 
Beispiel könnten auf die Frage 
„Speicherkapazität“ die Antworten 
1 bis 3 lauten: 

(1) unter 48K 

(2) 48-64K 

(3) 65-128K. 

Bevor XPER als „Expertensytem" 
genutzt werden kann, müssen die 
Untersuchungsobjekte, ihre Varia- 
blen und die Werte der Variablen 
eingegeben werden. Ausgestattet 
mit einem solchen Datenmaterial 
kann XPER arbeiten. 
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4. Systemaufbau 


XPER besteht aus vier eigenstän- 
digen Programmteilen (Modulen), 
die vom Hauptmenü aus abgerufen 
werden können. 

Der Editor dient der Informations- 
eingabe und -korrektur, d.h. dem 
Aufbau des Basiswissens. Eine 
qualitative und quantitative Ergän- 
zung der Datengrundlage ist jeder- 
zeit durch das Hinzufügen zusätzli- 
cher Objekte, Variablen und Werte 
möglich. Mit Hilfe des Editors kön- 
nen Gruppen von Objekten zu- 
sammengefaßt und mit anderen 
gleichartigen Gruppen verglichen 
werden. XPER stellt die Uhnter- 
schiede und Gemeinsamkeiten 
fest und erläutert diese auf Anfra- 
ge. Zwischen einem gegebenen 
Objekt und den restlichen einer 
Gruppe kann das System die Di- 
stanz nach Jaccard, d.h. den Grad 
der Ähnlichkeit ermitteln und in 
Form einer Maßzahl angeben. 
(Völlige Übereinstimmung = Di- 
stanz Null, völlige Gegensätzlich- 
keit = Distanz 10000, Ähnlichkeit 
bis Distanz < 2000.) 

Das zweite Modul ist der Bestim- 
mer. Er dient — wie der Name 
schon sagt — der näheren Bestim- 
mung der Objekte. Die Einkreisung 
eines gesuchten Objektes erfolgt 
durch Fragen, die das Programm 
dem Anwender stellt. Als Antwor- 
ten sind Auswahlpunkte eines Me- 
nüs zulässig. Mit jeder Antwort 
verringert sich die Zahl der in Fra- 
ge kommenden Objekte, bis der 
gesuchte Gegenstand charakteri- 
siert ist. XPER bietet auch die Mög- 
lichkeit, eine Liste der bei dieser 
Auswahl ausgeschiedenen Objek- 
te aufzustellen und die Reihenfol- 
ge und Gründe des Ausschlusses 
aufzuzeigen, Entsprechend kön- 
nen die im Lauf der Entscheidung 
eliminierten Variablen aufgelistet 
werden; das sind die Eigenschaf- 
ten, die im Lauf der Abfrage für die 
Auswahl des gesuchten Objektes 
irrelevant werden und deshalb 
nicht in weitere Fragen aufgenom- 
men werden. 

Der dritte Programmteil ist der Re- 
organisator. Er dient dazu, Daten 
des Basiswissens umzustellen und 
neu zu ordnen. Die Reihenfolge 
der Objekte, Variablen und Werte 
kann damit geändert werden. Gan- 
ze Dateien (sog. Arbeitsblätter) 
können mit Hilfe des Reorganisa- 
tors miteinander gekoppelt wer- 


den, sofern sie einheitliche 
Datentypen enthalten. 

Der Drucker dient der Ausgabe 
der gespeicherten Daten. Alle In- 
formationen, also Objekte, Varia- 
blen und Werte können in Textform 
oder als Kreuzungstabelle ausge- 
druckt werden. Im Modul „Bestim- 
mer“ kann ein Protokollmodus an- 
gewählt werden, der die siufenwei- 
se Auswahl eines Objektes aus der 
Gesamtzahl der möglichen Objek- 
te wiedergibt, 


5. Programmablauf 


XPER ist für den Dialogbetrieb 
Computer-Anwender konzipiert. 
Aus diesem Grund ist das gesamte 
System in Form hierarchischer 
Menüs aufgebaut. Im Hauptmenü, 
das nach dem Booten der selbst- 
startenden Programmdiskette er- 
scheint, wählt man aus den vier 
Programmodulen eines aus. Meh- 
rere Stufen von Unterprogrammen 
ermöglichen im Editor die Eingabe 
von Objekten, Variablen und Wer- 
ten bzw. deren Korrektur und Ver- 
gleiche, im Bestimmer das Laden 
der Arbeitsblätter und die Bestim- 
mung gesuchter Objekte durch ei- 
ne Abfolge von Fragen und im Re- 
organisator eine Umstellung der 
Daten, 

Mit einer invers dargestellten Ab- 
kürzung am linken unteren Bild- 
schirmrand wird angezeigt, in wel- 
chem Untermenü man sich gerade 
befindet. 

Die Menüstruktur dient der besse- 
ren Übersichtlichkeit von XPER. 
Auch als Anfänger läßt sich damit 
bequem arbeiten. Allerdings wird 
das Erstellen des Basiswissens zur 
Fleißarbeit, wenn man die gesamte 
Kapazität von XPER ausnutzt und 
viele Daten eingibt, weil man im- 
mer wieder in das übergeordnete 
Menü springen muß, um die Varia- 
blen und Werte aufzurufen, die 
man den einzugebenden Objekten 
zuordnet. 


6. Das Handbuch 


Das 158seitige Handbuch ist aus- 
führlich, aber in einigen Punkten 
recht verbesserungswürdig. 

Auf der ersten Seite wird auf die 
zusätzliche Installationsanweisung 
für die Computertypen Apple II, 
Commodore 64 und IBM-PC ver- 
wiesen, aber daß sich diese am 
Ende des Handbuchs befindet, 
muß man erst herausfinden. 

Ausgesprochen negativ zu beur- 
teilen ist die schlechte Sprache 
des Handbuchs; das Original wur- 
de in Frankreich verfaßt und von 
einem offenbar nicht sonderlich 
sprachbegabten Übersetzer ins 
Deutsche übertragen: schon im 
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Hinweis auf den Namen dieses 
Übersetzers befindet sich ein 
Rechtschreibfehler. Auf den 158 
Seiten — besonders gegen Ende 
des Hauptteils — wimmelt es nur so 
von Grammatik- und Orthogra- 
phiefehlern. Offenbar wollte man 
sich die Kosten für das Korrektur- 
lesen ersparen. Für den Anwender 
wird das besonders ärgerlich, 
wenn Befehle oder Menüangaben 
falsch abgedruckt werden, wie das 
des öfteren vorkommt. 

Unglücklich ist auch die Gestaltung 
der Hilfe-Kommandos, die man in 
den einzelnen Untermenüs an- 
wählen kann. Es erscheint jeweils 
eine unstrukturierte Folge von 
Buchstaben und Funktionskürzeln, 


die alle möglichen Befehlseinga- 
ben anzeigt. Eine erklärende Hilfe 
findet man erst in dem Teil des 
Manuals, der als „Systemhand- 
buch“ bezeichnet wird und auf 
knapp 50 Seiten alle Befehle und 
Programmpunkte der vier Module 
erläutert. Leider fehlt ein entspre- 
chender Hinweis zu Beginn des 
Manuals oder in den angewählten 
Help-Funktionen. 

Den Herstellern war es offenbar 
auch nicht möglich, bei der Wie- 
dergabe von Bildschirmmenüs ei- 
ne inverse Darstellung anzudeu- 
ten, und sei es nur in Form von 
Klammern oder Unterstreichungs- 
linien. Der Benutzer kann sich des- 
halb aussuchen, welcher Punkt zu 


Privatbuchhaltung mit PriBu 


getestet von Dagmar Berberich 


1. Gegenstand 


PriBu von Intus Software ist ein 
Programm, das private Einnahmen 
und Ausgaben verwaltet und damit 
einen Überblick über die finanzielle 
Lage seines Benutzers schafft. 

Für einen Preis von DM 195,- er- 
hält man eine selbststartende Pro- 
grammadiskette, eine Datendiskette 
und ein 41seitiges Manual im Pla- 
stikeinband. Die Disketten sind frei 
kopierbar (z.B. mit SUPERQUICK 
oder einem anderen Diskettenko- 
pierprogramm). Für jeden Abrech- 
nungszeitraum muß eine neue 
Datendiskette angelegt werden, da 
sonst die Daten des letzten Zeit- 
raums überschrieben werden. 


2. Hardware 


PriBu läuft auf dem Apple II Plus 
mit 48K, auf dem Apple Ilc und Ile 
mit mindestens einem Diskeiten- 
laufwerk. Komfortabler läßt sich al- 
lerdings mit dem Programm arbei- 
ten, wenn man zwei Diskettenlauf- 
werke besitzt; dann legt man die 
Programmadiskette in Laufwerk 1 
und die Datendiskette in Laufwerk 
2. Die Daten können über einen 
Drucker ausgegeben werden. Das 
Interface für den Drucker muß sich 
im Standardslot 1, für die ange- 
schlossenen Diskettenlaufwerke in 
Slot 6 befinden. 


3. Software 


Mit PriBu können Sie 3 verschie- 
dene Arten von Konten anlegen 
und bearbeiten. 

In maximal 19 Geldkonten (Konto- 
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nummer 1-19) notieren Sie Geld- 
bewegungen, z.B. Ihres Sparbu- 
ches, des Girokontos oder der 
Barkasse. In bis zu 70 Sachkonten 
(Kontonummer 20-89) werden 
Ausgaben wie Miete, Strom, Ur- 
laub etc. festgehalten. Die dritte 
Kontenart bilden die Außenkonten, 
die nicht in die aktuellen Abrech- 
nungen miteinbezogen, sondern 
separat geführt werden. Hier kön- 
nen z.B. der Bausparvertrag ver- 
waltet oder steuerlich absetzbare 
Ausgaben aufgelistet werden. Ins- 
gesamt können 10 Außenkonten 
(Kontonummer 90-99) von PriBu 
verarbeitet werden. 

Alle Geldbewegungen werden 
festgehalten: Einnahmen werden 
in Geldkonten addiert, Ausgaben 
werden in Sachkonten vermerkt 
und in Geldkonten abgezogen. Ein 
monatlicher Abschluß gibt die Ge- 
samtfinanzlage wieder, Daneben 
kann der Anwender jederzeit den 
augenblicklichen Stand seiner 
Konten abfragen und ausdrucken 
lassen, ebenso ist ein interner" Fi- 
nanztransfer von Konto A zu Konto 
B möglich. 

Das Programm ist als Menü aufge- 
baut und daher sehr benutzer- 
freundlich. Fehlermeldungen wei- 
sen auf ungültige Eingaben hin, 
und der Programmablauf wird so 
lange blockiert, bis eine gültige 
Eingabe erfolgt. 


4. Programmablauf 


Im ersten Menü wählt man zwi- 
schen dem Programm PriBu Grund 
und dem Arbeitsprogramm PriBu. 
Vor der ersten Benutzung müssen 


der betreffenden Gruppe von Ob- 
jekten gehört, die invers dargestellt 
wird. 


Fazit 


Vom „Einstieg in das faszinierende 
Gebiet der künstlichen Intelligenz 
verspricht man sich sicher mehr, 
als XPER halten kann. 

XPER ist eine gute Hilfe für all jene, 
die größere Mengen einheitlich 
strukturierter Daten verwalten und 
diese Datenvielfalt selektiv nach 
bestimmten Aspekten durchsu- 
chen müssen. Bei einer solchen 
Aufgabenstellung kann XPER sei- 
nem Anwender schnell einen gu- 
ten Überblick schaffen, da es Ver- 


mit PriBu Grund die verschiedenen 
Konten angelegt werden, bei 
späteren Abläufen können bereits 
erstellte Konten von der Datendis- 
kette übertragen werden. Dabei ist 
es wichtig, für die drei verschiede- 
nen Kontenarten (Geld-, Sach-, 
Außenkonto) Kontonummern aus 
dem erlaubten Bereich zu wählen 
und nach der Eingabe alle Werte 
auf der Datendiskette zu spei- 
chern. 

Um nach der Anlage der Konten 
mit PriBu Grund in das Arbeitspro- 
gramm PriBu zu gelangen, muß 
DOS neu geladen werden. In PriBu 
erscheint nach Eingabe des lau- 
fenden Monats das Hauptmenü, in 
dem durch Anwahl der Zahlen die 
entsprechenden Unterprogramme 
aufgerufen werden. 


Tabelle : PriBu-Unterprogramme 


E Ende 

1 Buchen 

2 Abschluss 

3 Drucken 

4 Neues Konto anlegen 
5 Aufteilung eingeben 
6 Konto verbessern 

7 Datum ändern 

A Alles auf Disk 


Mit den Unterprogrammen selbst 
arbeitet man schon nach kurzer 
Zeit ohne Probleme. 


5. Manual 


Das mitgelieferte 41 Seiten starke 
Manual reicht aus, um sich in der 
Menüstruktur des Programms zU- 
rechtzufinden, könnte aber in stili- 
stischer, didaktischer und inhaltli- 


gleiche bilden, Übereinstimmun- 
gen, Unterschiede und Distanzen 
zwischen verschiedenen Objekten 
ermitteln kann. 

Positiv zu bewerten ist die hohe 
Transparenz der Auswahlentschei- 
dungen, die dadurch ermöglicht 
wird, daß eliminierte Objekte und 
Variablen aufgelistet werden und 
der Grund für die Eliminierung so- 
wie die Reihenfolge des Auschlus- 
ses für alle Objekte aufgezeigt 
werden. Wer ein komfortables 
„Auswahl- und Verwaltungspro- 
gramm“ für seine Daten sucht, 
wird mit XPER sicher zufrieden 
sein. Mit DM 298,- muß er dann 
allerdings auch recht tief in die 
Tasche greifen. 


cher Hinsicht ausgebaut und ver- 
bessert werden. 

Bei der Neuanlage von Konten wä- 
ren Beispiele oder Help-Funktio- 
nen (die Im gesamten Programm 
fehlen) für den Erstanwender nütz- 
lich. Manche Hinweise erspart sich 
der Autor ganz oder bringt sie erst 
am Ende des Kapitels. Die Über- 
sichtstabellen, die die Abfolge der 
Menüpunkte, ihre Auswahl und 
Bedeutung darstellen sollen, sind 
leider recht unübersichtlich ge- 
raten. 

Im Anhang findet man ein kurzes 
Glossar mit den wichtigsten Fach- 
begriffen, die in PriBu verwendet 
werden. Dem Anwender, der we- 
nig Vorkenntnisse über Ablauf und 
Grundsätze der Buchhaltung mit- 
bringt, wäre mit einer etwas aus- 
führlicheren Darstellung von Sinn 
und Zweck von Gegenkonten, 
Zwischenkonten und Kontenaus- 
gleich besser gedient, zumal PriBu 
sich als Buchhaltiungsprogramm 
für den Privatanwender versteht. 


Fazit 


Das Handbuch zum Programm ist 
zwar verbesserungsfähig, PriBu 
selbst aber bietet dem privaten Be- 
nutzer genügend Möglichkeiten, 
seine gesamten Finanzen zu ord- 
nen. Das Programm eignet sich für 
alle, die gerne eine klare Übersicht 
über den jeweiligen Stand ihrer 
Geldmittel haben und bereit sind, 
dafür ihre Einnahmen und Ausga- 
ben stets zu aktualisieren. Bleibt 
zu hoffen, daß ihnen das Pro- 
gramm auch hilft, gut mit den eige- 
nen Finanzen zu wirtschaften. 
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49.49 TESTDERICHTE 4 


DCODE - Utilities für Applesoft-BASIC 


Ein Erfahrungsbericht 


von Franz-Josef Hüskens 


Der Apple II wird zwar mit einer 
eingebauten höheren Program- 
miersprache, dem Applesoft-BA- 
SIG, geliefert, bietet dem BÄASIC- 
Programmierer jedoch wenig Un- 
terstützung. Fehlerhafte Program- 
me oder Programmzeilen können 
nur umständlich berichtigt werden. 
Eine Umnumerierung der Zeilen 
und das Mischen zweier BASIC- 
Programme sind ohne zusätzliche 
Software überhaupt nicht möglich. 
Die drei Utility-Programme, die in 
DCode enthalten sind, greifen dem 
geplagten BASIC-Programmierer 
bei seiner Tätigkeit hilfreich unter 
die Arme und ermöglichen u.a.: 
1. Verringerung des Platzbedarfs 
2. Vergleich zweier Programme 
bzw. Files 
3. direkte Anzeige von Eingabe- 
fehlern 
4. bessere TRACE-Ausführung. 
Die DCode-Programme befinden 
sich in zwei Versionen auf einer 
Seite der mitgelieferten Diskette. 
Eine Version arbeitet unter DOS 
3.3, die andere unter ProDOS. Die 
Diskette sollte jedoch nur dann ge- 
bootet werden, wenn man die Pro- 
DOS-Version von DCode benut- 
zen will. Doch nun zu den Pro- 
grammen im einzelnen. 


1. COMPACT 


Compact verringert den vom BA- 
SIC-Programm belegten Speicher- 
platz auf drei verschiedene, frei 
wählbare Arten: In das Programm 
eingestreute REM-Zeilen (Bemer- 
kungen) können gelöscht werden, 
die Namen der Variablen können 
verkürzt werden, auf Wunsch wer- 
den in eine Programmzeile so viele 
Befehle wie möglich gepackt. 

Das Programm wird mit „BRUN 
COMPACT" oder - falls es sich 
bereits im Speicher befindet — mit 
„&" gestartet. Danach erscheint 
das Menü des Programms, das fol- 
gende Optionen beinhaltet: 


1. REMs entfernen 

2. Zeilen verknüpfen 

3, Variablennamen verkürzen 
4. Variablen umbenennen 
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5. Programmteil „packen“ 

6. Tabelle der Variablen drucken 
C Compact starten 

Q Programm beenden 


Durch die Eingabe der Ziffer oder 
des Buchstabens wird die entspre- 
chende Option aktiviert. 

Was bewirken die einzelnen Aus- 
wahlpunkte? 


C Compact starten und Q Pro- 
gramm beenden 

Diese beiden Menüpunkte erklä- 
ren sich aus ihrem Namen. 


1. REMs entfernen 

Kommentare (REM-Statements) in 
einem Programm dienen zwar der 
besseren Lesbarkeit, verschwen- 
den jedoch jede Menge Speicher- 
platz. Jedes Zeichen, das dem 
REM-Kommando folgt, belegt ein 
Byte im Speicher. Die „Arbeitsver- 
sion“ eines Programms sollte aus 
diesen Gründen keine REMs ent- 
halten. 


2. Zeilen verknüpfen 

Jede Zeilennummer, die entfernt 
werden kann, spart vier Speicher- 
zellen. Compact packt daher mög- 
lichst viele Befehle in eine Pro- 
grammzeile. Zeilen, die von ande- 
ren Zeilen aus angesprungen wer- 
den, werden nicht gepackt. Man 
muß aber beachten, daß Compact 
auf diese Art Programmzeilen 
schaffen kann, die so lang sind, 
daß sie nicht mehr editiert werden 
können. 

Die DCode-Diskette bietet aber 
auch hier Hilfe in Form des Pro- 
gramms LINE.SPLITTER. Damit 
werden gepackte Programmzeilen 
ungefähr in der Mitte „auseinan- 
dergeschnitten“. Der „obere Teil“ 
der Zeile erhält dabei eine Zeilen- 
nummer, die um eins höher ist als 
die des „unteren Teils“, Ist diese 
Nummer bereits belegt, wird der 
Benutzer aufgefordert, sie zu än- 
dern. 


3. Variablennamen verkürzen 
Wie bekannt sein dürfte, beachtet 
der Applesoft-Interpreter nur die 


beiden ersten Zeichen eines Varia- 
blennamens. Der Name selbst 
kann zur genaueren Beschreibung 
der Variablen beliebig lang sein. 
Wird Option 3 gewählt, verkürzt 
Compact alle langen Variablenna- 
men auf zwei Zeichen. 


4. Variablen umbenennen 

Alle Variablen eines Programms 
werden so umbenannt, daß die Be- 
zeichnungen so kurz wie möglich 
werden. Die am häufigsten ver- 
wendeten Variablen erhalten dabei 
Namen mit nur einem Buchstaben. 


5. Programmteil packen 

Bei Auswahl dieses Menüpunktes 
muß der Benutzer den Bereich, 
der gepackt werden soll, angeben 
(Anfangs- und Endzeilennummer). 


6. Tabelle der Variablen drucken 
Werden Option 6 und 4 gewählt, so 
werden die neuen Variablennamen 
auf dem an Slot 1 angeschlosse- 
nen Drucker ausgedruckt. 


Bei der Auswahl der einzelnen Op- 
tionen wird man feststellen, daß 
sich verschiedene Punkte gegen- 
seitig ausschließen, (Im Handbuch 
wird darauf gesondert eingegan- 
gen.) Dies wird jedoch vom Pro- 
gramm automatisch berücksichtigt. 
Nachdem alle gewünschten „Pack- 
optionen”“ gewählt sind, startet 
man das Programm mit „CO“. Hat 
man Option 4 gewählt, so werden 
nach einer kleinen Pause die ver- 
änderten Variablennamen gezeigt. 
Nach Beendigung des Packvor- 
gangs erhält man einen Hinweis 
über die alte und neue Länge des 
Programms und die Zahl der ein- 
gesparten Bytes, 

An das Ende eines BASIC-Pro- 
gramms kann man zusätzliche 
Bytes anhängen (z.B. um ein Ma- 
schinenprogramm in das BASIC- 
Programm einzubetten), indem 
man den Zeiger für das Programm- 
ende verändert. Compact findet 
solche „Extrabytes" und fragt, ob 
diese gelöscht werden oder beste- 
hen bleiben sollen. 


Sind alle Packarbeiten erledigt, 
zeigt Compact noch unnötige Zei- 
len. Wurde ein Programm häufig 
verändert, so können Programm- 
zeilen im Speicher stehen bleiben, 
die während eines Programmlaufs 
nie benutzt werden. Compact gibt 
die Zeilennummern solcher Zeilen 
aus, überläßt es aber dem Pro- 
grammierer bzw. Benutzer, diese 
Zeilen zu löschen. 

In einem zehnseitigen Teil des 
Handbuches werden die Möglich- 
keiten von Compact dargestellt, 
Tips zur richtigen Anwendung ge- 
geben und die Vor- und Nachteile 


verkürzter Programme be- 
schrieben, 
2. COMPARE 


Oft kommt es vor, daß man auf 
seinen Disketten ein Programm in 
verschiedenen oder gleichen Ver- 
sionen gespeichert hat. Compare 
vergleicht zwei Applesoft-Pro- 
gramme und berichtet über gleiche 
und unterschiedliche Programm- 
zeilen. Außerdem zeigt es auch die 
Zeilen an, die nur in einem von 
beiden Programmen auftauchen. 
Dazu benutzt Compare folgende 
Codes: 


1 Zeile gibt es nur im ersten Pro- 
gramm 

2 Zeile gibt es nur im zweiten Pro- 
gramm 

S Zeile ist in beiden Programmen 
gleich 

D Die Zeilennummer ist in beiden 
Programmen enthalten, die Zeilen- 
inhalte sind jedoch unterschied- 
lich. 

Mit Compare ist auch der Vergleich 
von Text- bzw. Binärfiles möglich. 
Hier wird jedoch nur darüber infor- 
miert, ob die Files identisch sind 
oder nicht. 


Wie Compact kann Compare nach 
dem Laden mit „&“ erneut gestar- 
tet werden. Dies bedeutet aber 
auch, daß nur eines dieser Pro- 
gramme im Speicher gehalten 
werden kann. Die Koexistenz der 
dritten DCode-Utility ist jedoch mit 
jeweils einem der beiden Program- 
me möglich. 
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3. D.BUG 


D.Bug ist wohl das wichtigste 
Werkzeug der DCode-Diskette. Es 
stattet den Apple mit 11 neuen Be- 
fehlen aus, die wie jeder andere 
Applesoft-Befehl aufgerufen 
werden, 

Nach dem Laden des Maschinen- 
programms mit „BRUN D.BUG’ 
werden die neuen Befehle instal- 
liert. Sie stehen damit dem Pro- 
grammierer zum Programmieren 
und zur „Entwanzung“ (debug- 
ging) zur Verfügung. D.Bug belegt 
ca. 5.5K Speicher und kann gleich- 
zeitig mit „GPLE" und „Double 
Take“ sowie „Compact“ oder 
„Compare“ arbeiten. 

Im Handbuch wird auf 18 Seiten 
die Benutzung des Programms 
und der neuen Befehle beschrie- 
ben und anhand von Beispielen er- 
klärt. Hier folgt eine kurze Aufzäh- 
lung der neuen Kommandos und 
ihrer Wirkungen. 


— FAST FINDER dient zum Suchen 
(und Finden) „irgendwelcher” ein- 
zugebender Zeichenfolgen. Nach 
der Eingabe von „F" verlangt das 
Programm ein Suchkriterium. Die 
Eingabe von Wildcardsymbolen 
(„$S" oder „@" für ein, „#" für 
mehrere Zeichen) ist möglich, 
„Find“ zeigt dann jede Zeilennum- 
mer, die die gesuchte Zeicheniol- 
ge enthält. Die „FIND AND LIST”- 
Funktion bietet eine zweite Mög- 
lichkeit, nach beliebigen Zeichen 
zu suchen. Sie wird mit „FL" auf- 
gerufen und zeigt die betreffende 
Zeile, in der die gesuchte Zeichen- 
folge zur besseren Kennzeichnung 
invers ausgegeben wird. 


—- PROGRAM CHECKER dient zum 
Überprüfen eines bestehenden 
Programms. Durch Eingabe von 
„C" wird das gespeicherte Ap- 
plesoft-Programm untersucht. 
D.Bug findet dabei Syntax-Fehler 
(Anzeige des Interpreters: ?SYN- 
TAX ERROR) wie HME (statt HO- 
ME) und Zuweisungsfehler (?TYPE 
MISMATCH ERROR) wie A = 
"TEST" statt A$ = "TEST". Ange- 
zeigt werden Syntax-Fehler mit ei- 
nem inversen <?> und Zuwei- 
sungsfehler mit inversem <#> 
nahe der Fehlerstelle. Falsche 
Wörter innerhalb von Anführungs- 
zeichen sowie in REM- und DATA- 
Statements kann das Programm 
natürlich nicht finden. D.Bug 
checkt nicht nur fertige Program- 
me, sondern überprüft auch jede 
Eingabe von der Tastatur und zeigt 
Fehler sofort an. Ältere Apple-Be- 
sitzer erinnern sich hier an Integer- 
BASIC. Im Direkt-Modus kann 
CHECK sogar zeitweise abge- 
schaltet werden. 
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— EASY LISTER. Nach Eingabe 
von „L" wird das im Speicher be- 
findliche Applesoft-Programm geli- 
stet. Die Interpreter-Syntax -— 
110,100 oder L10 usw. — bleibt 
dabei bestehen. 


— WINDOW TRACGER stellt vier 
neue Kommandos zur Verfügung: 
Trace, Notrace, Variables und Win- 
dow, Die Anfangsbuchstaben kön- 
nen als Kürzel für die neuen Be- 
fehle benutzt werden. 

Die Eingabe von „Trace“ oder „T" 
vor dem Start eines Programms 
stellt im unteren Bereich des Text- 
Bildschirms ein Fenster zur Verfü- 
gung, in dem nicht nur die Zeilen- 
nummern, sondern auch die je- 
weils durchgeführten Befehle einer 
Programmzeile angezeigt werden. 
Auf Wunsch werden sogar ver- 
schiedene Variablen und deren 
Werte angezeigt. 

Mit „V:“ werden die Variablen defi- 
niert, die während des Programm- 
laufs dokumentiert werden sollen. 
Nach dem Doppelpunkt müssen 
natürlich die entsprechenden Na- 
men angegeben werden. 
„Window“ oder „W" erlaubt dem 
Benutzer, die Größe des Fensters 
(s. Trace) zu definieren. 

„Notrace" oder „N" schaltet die 
Trace-Funktion ab. 


Während das Benutzer-Programm 
läuft, kann mit verschiedenen Ta- 
sten die Größe des Fensters geän- 
dert und die Geschwindigkeit der 
Trace-Ausgabe gesteigert oder 
verringert werden. Mit der Leerta- 
ste kann das Programm in Einzel- 
schritten durchlaufen werden, und 
mit den Apfel-Tasten bzw. Paddle- 
Knöpfen ist ein Ab- und Anschal- 
ten der Trace-Funktion möglich. 


- DUMP TRAGER dokumentiert 
ein Programm, nachdem dieses 
angehalten oder aufgrund einer 
Fehlermeldung abgebrochen wur- 
de. Dazu stehen folgende Befehle 
bereit: 


„Dump“ (D) zeigt die im Dump- 
Puffer gespeicherten, zuletzt aus- 
geführten Befehle. Die Größe des 
Dump-Puffers kann mit „Size“ (S) 
festgelegt werden. Maximal kann 
der Puffer über 10 000 Befehle 
halten, die minimale Befehlsanzahl 
ist 5. Mit „Zap“ (Z) wird der Puffer 
gelöscht. Bei Benutzung des 
Dump-Befehls kann mit verschie- 
denen Tasten die Ausgabe der ge- 
speicherten Daten gesteuert wer- 
den: Links- und Rechtspfeil kon- 
trollieren die Anzeigerichtung, Ctrl- 
S unterbricht die Anzeige und die 
Leertaste zeigt jeden Befehl ein- 
zeln an. Mit Ctrl-C wird der Dump 
unterbrochen. 


—- BREAKPOINTS {Unterbrecher- 
punkte) können mit D.Bug eben- 
falls benutzt werden. Will man 
beim Programmtest wissen, wann 
oder wie eine Variable einen be- 
stimmten Wert erreicht hat oder 
wann ein bestimmter Befehl aus- 
geführt wird usw., können Break- 
points sehr nützlich sein. Mit 
D.Bug besteht die Möglichkeit, bis 
zu acht Breakpoinis zu program- 
mieren. Dabei ist es möglich zu 


testen, ob eine Variable einen be- | 


stimmten Wert erreicht hat, ein be- 
stimmtes Kommando ausgeführt 
wurde und/oder eine Zeile zum x- 
ten Male durchgeführt wurde. Die 
Anzeige einer Liste der gesetzten 
Breakpoints ist ebenso möglich 
wie das Entfernen der Unterbre- 
cherpunkte. Die Breakpoints kön- 
nen zeitweise abgeschaltet wer- 
den. Reaktivierung ist natürlich 
auch möglich. 


Fazit 


Zusammenfassend kann man sa- 
gen, daß DCode eine Programm- 
sammlung ist, die für den Ap- 
plesoft-Programmierer ein mächti- 
ges und sehr nützliches Hilfspaket 
zur Verfügung stellt. Der Preis von 
etwa DM 160.- hält sich in Gren- 
zen und ist für meine Begriffe ge- 
rechtfertigt. 
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Kumuliertes Inhaltsverzeichniss=...: 


Peeker 1/1984 bis 9/1986 





Das kumulierte Register aller bisherigen 
Peeker-Beiträge mußte mit Heft 9/1986 
abgeschlossen werden, weil die Datei 
für den „Wortsucher“ sonst zu groß 
geworden wäre, Die Hefte 10 bis 12/ 
1986 werden als gesonderte Datei auf 
der Sammeldiskette für das Dezember- 
Heft nachgeliefert. Die Beiträge sind in 
Groß- und Kleinbeiträge und entspre- 
chende Rubriken sowie innerhalb der 
Rubriken nach dem Alphabet sortiert 
worden. Mit dem „Wortsucher“ (s. ge- 
sonderter Aufsatz) können Sie darüber 
hinaus nach Heften, Autoren sowie be- 
llebigen Stichwörtern suchen. Auf der 
sammeldiskette wird jeder Beitrag mit 
einem zweistelligen Rubrik-Kürzel (AP 
usw.) eingeleitet, so daß man auch nach 
Rubriken suchen kann. 

us 


1. Großbeiträge 


AP = Applesoft 
AS = Assembler 


GP= GP/M 
BO-B0583 
DR = Drucker 
GL = Grundlagen 
GR = Grafik 

HA = Hardware 
HO = Hobby 

KY = Kyan-Pascal 
LO = Logo 

MA = Macintosh 
MB = MBASIC 
PD = ProDOS 
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De ander = 
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PX = Praxis 
RE = Recht 
SC = Schule 
TE = Technik 


TK = Telekommunikation 
TU = Turbo-Pascal 

UC = UCSD-Pascal 

UT = Utilities 


2. Kleinbeiträge 


BU = Bücher 

HP = Händlerprofil 
KU = Kurzberichte 
LE = Leserbriefe 
NA = Nachträge 
PR = Produkte 

TB = Testberichte 
VE = Vermischtes 


1. Großbeiträge 


AP: Applesoft 

— Ampersand macht's möglich. IN- 
STRING-Befehl in Applesoft. Dr. Jürgen 
B. Kehrel. 2/84/40 

.— Applesoft-Erweiterungen. Eine 
sammlung von Ampersand-Routinen. 
Markus Enzinger. 6/85/43 

— Applesoft simuliert Turtle Graphic. Ha- 
rald Grumser. (Ergänzung 2/84/10) 1/ 
84/26 

— Behandlung reeller Zahlen in Ap- 
plesoft. Konrad Steinmeier. 3/86/12 

— Buchkalkulation. Ein Applesoft-Kalku- 
lationsprogramm für Verlage. us. 9/86/ 
56 


— Funktionenprogramm für Apple Il+. 
Stefan Hubertus Weil. 9/86/62 

— Haushaltsverwaltung auf dem Apple 
IIc/lle, Thilo Schön. 4/86/42 

— IF-THEN-ELSE-Befehl simuliert in 
Applesoft. Franz-Josef Hüskens. 2/84/ 
48 

— INALL. INPUT für DOS/ProDOS, (Be- 
richtigung 5/85/50) 4/85/70. 

— INPUT für alle Fälle, Tastatur - DOS — 
ProDOS. Harald Grumser. 5/85/50 

— Komifortabler INPUT von Strings. Ul- 
rich Kußmann. 12/85/20 

— Menü-Generator für den Apple Il. Dr. 
H. Kersten. 4/85/20 

— Müllabfuhr wie ein Blitz. Eine ultra- 
schnelle Garbage-Collection-Routine. 
Harald Grumser, {Berichtigung 8/85/ 
70) 1-2/85/32 

— Print-Using. Rechtsbündige Zahlen- 
formatierung, us, 11/85/49 

— RANDOM.DEMO. Random-Zahlen- 
Generator, us. 5/85/69 

— Referenztest, Zeilenverweise in Ap- 
plesoft-Programmen. Ludger T, Eng- 
bert. 11/85/55 

— SCREEN80.SAVER, us 4/85/76 

— Tabelle der wichtigen Applesoft-Inter- 
preter-Routinen. Harald Grumser. 12/ 
85/30 

— Umwandlung in Großbuchstaben. Ha- 
rald Grumser. 9/85/31 

— Verkettung von Applesoft-Program- 
men. Variablenübergabe unter DOS 
3.3. Frank Bühler, 7/86/18 

— Wie man Arrays löscht. Christiane 
Breit und Thomas Schneyer. 2/84/51 


AS: Assembler 

—  Assembler-Pseudo-Opcode-Refe- 
renztabelle. Dr. Jürgen B. Kehrel. 8/85/ 
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— Bildschirmmasken in der Language 
Card. Carl Frieder Mahr. 2/86/41 

— 65002-Disassembler für Apple Ile 
und II Plus. us. 1/84/14 

— Disassembler für „geheime" 6502- 
Opcodes. Christoph Bregler. 5/85/31 

— Fakultäten. Roland und Manfred Fiet- 
kau. 8/85/56 

— Flag Monitor, Eine Taktzähler-Utility. 
Michael G, Schneider. 9/85/32 

— Gemeinsame F8-Monitor-Routinen, 
Apple II+/e/c/enhanced. us. 5/86/52 
— Hex-Dez-Konvertierung für 32-Bit- 
Zahlen, Harald Grumser. 7/85/69 

— 683000-Kompaktkurs. Mit umfangrei- 
chen Befehlstabellen. Pit Capitain. 9/ 
86/6 

— 6502 leicht gemacht. us. 7/85/33 

— Makros für die neuen Befehle des 
65002, Dipl.-Oec. Edgar Meyzis. 4/85/ 
30 (Berichtigung 5/86/74) 

— Speichern Sie den Bildschirm ab! Or- 
ganisation des 40-Z/Z-Apple- und des 
80-Z/Z-Videx-Bildschirms. Dr. Jürgen 
B. Kehrel. 1-2/85/42 

— Tabelle der Interpreter- und Monitor- 
Adressen. 5/85/72 

— Vorlesestunde. Apple und S.A.M., ein 
hilfreiches Gespann. Dr. Jürgen B, Keh- 
rel. 7/85/71 

— Z80-Assembler-Programmierung un- 
ter CP/M, Dr. H. Kersten. 11/85/33 


CP: CP/M 
— Adreßverwaltung mit dBase Il. Listing 
des überarbeiteten Quelltextes. Ing. 


(grad.) Ernst Fischer. 6/86/52 

— Adreßverwaltungsprogramm mit dBA- 
SE Il, Ing. (grad.) Ernst Fischer, (Ergän- 
zung 10/85/21) 8/85/40 

— Apple-CP/M. Mit einem RAM-Disk- 
Driver für die 64K-Karte. Karl-Walter 
Bott, 6/85/55 

— CP/M für Einsteiger. Jörg Lange. 4/ 
85/59 

— Das CP/M-Directory näher beleuch- 
tet, Der Aufbau von 16-Sektor-CP/M- 
Disketten, Dr, Jürgen B. Kehrei. 5/85/ 
39 

— GETCPM: Konvertierung von CP/M- 
in DOS-Textfiles. Applesoft-Version. 
Thomas Fink, 3/85/43 

— Weitere Wordstar-Modifikationen. Pat- 
ches für Epson FX-80 mit DDT, Dieter 
Conrad. 3/86/56 

— Wordstar druckt internationale Zei- 
chensätze. Frei definierte Sonderzei- 
chen auf dem FX-80 nutzen. Dipl.-Ing. 
H.A. Rohrbacher. 8/85/45 

— Wordstar mit allen FX-80-Schriftarten. 
Dipl.-Ing. H.A. Rohrbacher. 7/85/57 

— Wordstar-Transfer-Refiner. Konvertie- 
rung von GP/M-Wordstar- in DOS-Ap- 
plewriter-Textfiles. Dr, Jürgen B. Keh- 
rel. 3/85/35 


DO: DOS 3,3 

— Der File-Manager des DOS 3.3, Ha- 
rald Grumser. 5/85/6 

— Disk-Chirurg. Ein Programm zur 
Überprüfung schadhafter Diskettensek- 
toren. Wolf-J. Faust, 11/85/24 

— DOS-Mover. Erhöhung der Speicher- 
Kapazität um über 30%. Harald Grum- 
ser, 2/86/17 (Leserergänzung 5/86/73) 
- Ein neues FID für DOS 3,3. Mit Auto- 
FID für RAM-Disk-Besitzer. Harald 
Grumser. 9/85/12 

— Poor Man’s RAM-Disk, RAM-Disk- 
Driver für die Language Card. us, (Er- 
gänzung 6/85/69) 1-2/85/8 


DR: Drucker 

— Großformatiger HGR-Ausdruck. Mark 
Liebrand. 11/85/20 

— Hardcopy auf Olympia ESW 100 RO. 
Ein Typenraddrucker wird grafikfähig. 
Ralf Menssen. 6/85/34 

— Hires-Grafik-Dump für Epsondrucker, 
Jürgen und Dieter Geiß. 1/84/40 

— Imagewriter kurz und bündig, Die 
wichtigsten Steuerbefehle. Thorsten 
Schunk, 12/85/8 

— Peeker-Quickie, DUMP8OREL. 

— SCREEN80, 80-Z/Z-Bildschirm- 
Dump. us. 4/85/33 

— Sonderzeichen auf dem Imagewriter. 
Mit BITEDITOR- und ANIMATRIX-Zei- 
chensätzen. Carl Frieder Mahr. 4/86/32 


GL: Grundlagen 

— Binäres Rechnen mit Papier und Blei- 
stift. Teil 1: Addition und Subtraktion. 
us. 2/86/6 

— Binäres Rechnen mit Papier und Blei- 
stift. Teil 2: Multiplikation und Division. 
us. 4/86/6 

— Das Wahre ist eins, Aussagenlogik für 
Programmierer. us. 8/86/32 

— Wie funktioniert Quicksort? Mit einem 
Demonstrationsprogramm. us. 1/86/6 
(Berichtigung 5/86/73) 


GR: Grafik 

— Applesoft-HGR-Erweiterung in As- 
sembler. Klaus Schäfer. 1/86/30 (Be- 
richtigung zu AGE 5/86/73) 
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- Applesoft-Interpreter-Erweiterungen 
für Double-Hires. Dr, Wolfgang Braun. 
10/85/14 

— ASCII-Text im HGR-Bildschirm. Mit 
einem _Zeichengenerator-Programm. 
Markus Geltenpoth. 12/85/16 

—- CONVERT560. Konvertierungsroutine 
für Double-Hires-Drucker-Dump. Marc 
van Woerkom. 5/85/25 

- Das Farbbit. Pseudo-Double-Hires auf 
dem Apple Il Plus, H.-D. Siewert. 6/85/ 
16 

- Double-Lores-Applesoit-Erweiterun- 
gen. Karl-Walter Bott, 8/85/32 

— Dreidimensionale Funktionsdarstel- 
lung. Alfred Böhm, 2/86/43 

— Graf-quattro. Künstlerische Grafik für 
jedermann. Teil 1: Wie ein Supereditor 
entsteht, Nino G. Barbieri. 4/85/14 

— Graf-quattro, Teil 4: Der Grafik-Editor. 
Nino G. Barbieri. 10/85/6 

— Graf-quattro. Teil 2: Schneller als der 
Schall. Nino G. Barbieri. (Ergänzung 10/ 
85/69) 6/85/6 

—- Graf-quattro. Teil 3: Tricks über 
Tricks. Nino G. Barbieri. 8/85/24 

— PLOT 3.E. Ein neuer Funktionsplotter 
für den Apple lle/c mit Double-Hires- 
Grafik. Hans-Martin Eng. 6/86/6 

-- PLOT 2.0. Ein komfortabler Funktions- 
plotter. Hans-Martin Eng. (Berichtigung 
9/85/69) 5/85/17. 

— Superdump, Das universelle Hires- 
Grafik-Dump-Programm. Jürgen Geiß, 
(Ergänzung 8/85/50) 6/85/22 

— Trickfilmgrafik für Spielprogramme. 
Mit einem Sprite-Editor. Bernd Kla- 
wonn. 11/85/6 (Berichtigung 5/86/73) 
— Wie man die Grafik verdoppelt. Teil 2: 
Double Hires. Karl-Walter Bott. 2/84/ 
24, Vgl. 1/84/32 

— Wie man die Grafik verdoppelt. Teil 1: 
Double Lores. us. 1/84/32 


HA: Hardware 

— Accelerator Ile. Die neue Superkarte. 
us, 1/84/19 

— Accelerator-Karte abstellen. us. 3/85/ 
66 

— Aufbau und Funktion von Diskettensy- 
stemen. Dipl.-Ing. Gerhard Berg. 3/85/ 
10 

— Balfer-Interface. RAM-Disk-Driver für 
Apple Ile. us. 5/85/12 

— Der neue 65C002-Prozessor, us. 1/84/ 
6 

— Die neuen ROMSs für den Apple Ile. 
Teil 3: Applesoft-Interpreter. Harald 
Grumser, 10/85/34 

— Die neuen ROMs für den Apple Ile, 
Teil 1: Grundlagen. Teil 2: Standardein- 
und -ausgabe, 10/85/22 us 

- EPROM-Programmiergerät für den 
Apple Il. Dr, Roland Schule. 10/85/40 
(Leserergänzung 5/86/73) 

- Konfiguration der seriellen Schnitt- 
stellen beim Ic. Enno Klatt. 2/86/34 

— Netzwerk für Apple-Rechner. Low- 
Cost-Rechner-Kopplung für jedermann. 
Alexander Niemeyer. 8/86/50 

—- ProDOS-Uhrkartentreiber, Realtime- 
Clock „TIME II". Dipl.-Ing. Achim Suk- 
ker, 7/86/22 

— Prometric. Ein Apple-Kompatibler mit 
65002C. us. 2/84/64 

— Super-HGR für NEC- und ITOH-Druk- 
ker. Rainer Hammerschmidt. 9/85/30 

— Wie man Programme „entschützt”, 
Ein „Hardbreaker“ für Apple II+ und 
Ile. Willi Porten, 9/86/34 
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HO: Hobby 

— Abenteuer in Green-Sky. Adventure- 
Spiel Below the Root. Thomas Bühner. 
8/86/67 

— Cosmo-Crumble. Ein Weltraum-Ac- 
tion-Spiel, Oliver Steinmeier und Alex- 
ander Niemeyer. 12/85/6 

— Die Berechnung der Kreiszahl Pi, Pi 
mit bis zu 15.500 Stellen Genauigkeit. 
Roland und Manfred Fietkau, 5/86/42 
— Die Gewinner des Primzahlen-Wett- 
bewerbs. 2/84/70 

— Ein Tag im Stellwerk. Spiel Train Dis- 
patcher, Thomas Bühner. 8/86/68 

— Fehlerjagd im Computerlabor. Spiel 
|,O. Silver. Thomas Bühner. 8/86/69 

— Geschwindigkeit ist keine Hexerei. 
Erastosthenes erneut betrachtet. Mi- 
chael G. Schneider. 3/85/56 

— Grafik-Demonstrationen. Ralf Knoke. 
8/85/67 

— Grafik-Demonstrationen. Teil 2. Ralf 
Knoke. 1/86/61 

— Mousory. Memory-Spiel mit der Ap- 
ple-Maus. Wolfgang Landgraf. 7/86/12 
— Pascal-Preisausschreiben. 7/85/62 

— Pascal-Preisausschreiben. Die Ge- 
winner. 9/85/58 

— Puzzle mit der Maus. Joachim Mette. 
10/85/65 

— Pyramid Pitty. Ein Reaktionsspiel. Mi- 
chael Matzat. 7/85/6 

— SOLITAIRE und wie man es löst. Ste- 
fan Maas. 6/85/64 

— Was ist Logo? Eine Kurzeinführung. 
Kurt Rudi. 10/85/64 

— Wer ist der Schnellste? Primzahlen- 
Preisausschreiben, 1/84/58 

— Zeichenjagd. Ein Einzeiler, Hans-Pe- 
ter Lendle. 8/85/69 

— Zweistimmige Melodien. Ein intelli- 
gentes Tonprogramm für den Apple Il. 
Jörg Schmidt. 4/86/60 


KY: Kyan-Pascal 

— Kyan Pascal — Aufbaukurs. Datenty- 
pen, Unterprogramme, Strings, 
Dateien. us. 3/86/32 

— Kyan-Pascal. Ein vollcompilierendes 
6502-Pascal, Herbert Pohl. 1/86/50 

— Kyan-Pascal. Grundkurs. us. 2/86/56 
— Kyan-Pascal 2.0. Tips und Tricks. us, 
6/86/47 

— Kyan-Pascal und Assembler. us, 4/ 
86/48 

— Stringbefehle für Kyan-Pascal. Mat- 
thias Meyer. 9/86/50 


LO: Logo 
— Einblicke in l.090. Apple Logo Il. Dipl.- 
Päd, Ernst F, Haas. 8/86/22 


MA: Macintosh 

— Apple-II-Monitor für den Mac. Wie zu 
Wozniaks Zeiten. Pit Capitain, 5/85/41 
— Datenübertragungsraten beim Macin- 
tosh. Arne Schirmacher, 7/86/54 

—- Der neue Macintosh. Erste Eindrücke 
zum Mac Plus, us. 3/86/6 

— Die Maske fällt und Mecki seh’ ich 
nun, entblößt von allen Reizen. Der 
Macintosh im Leistungstest. us. 3/85/ 
44 

— Handmac. Ein Macintosh-Paket für 
den Handwerker, Harald Grumser, 5/ 
86/55 

— Ikonen und Deixis oder die Philoso- 
phie des Macintosh. us. 1-2/85/74 

— Microsoft Basic leicht geMACht, Teil 
3; Die Ein- und Ausgabe. Pit Capitain. 
4/85/63 


- Microsoft Basic leicht geMACHht. Teil 
4: Die Grafik. Pit Captain. 8/85/60 

— Microsoft Basic leicht geMACht. Teil 
2: Funktionen und Programmsteuerbe- 
fehle, Pit Capitain. 1-2/85/78 

— Microsoft Basic leicht geMACht, Teil 
1: Operanden und Operatoren. Pit Capi- 
tain. 2/84/54 

— MS-File, MS-Word und Imagewriter Il. 
Anspruch und Wirklichkeit im Büroein- 
satz. Dr. Martin Wolter. 5/86/57 


MB: MBASIC 

— Lohn- und Einkommensteuer 1984. 
Ein umfassendes CP/M-MBASIC-Pro- 
gramm, Volker Duske. 1-2/85/45 

— MBASIC für den Applesoft-Profi. Jörg 
Lange. 9/85/48 


PD: ProDOS 

- Applesoft-Editor-Macros. Ein Quickie 
für den PRODOS.EDITOR. us. 1-2/85/ 
86 

— Block-Tracer für ProDOS. us. 5/85/51 
— Edit. Ein Luxus-Disk-Editor für Pro- 
DOS, Teil 1: Befehlsauswertung und 
Diskettentreiber. Arne Schäpers. 5/86/ 
8 

- EDIT. Ein Luxus-Disk-Editor für Pro- 
DOS. Teil 3: Die Makrosprache. Arne 
Schäpers. 8/86/40 

— EDIT. Ein Luxus-Disk-Editor für Pro- 
DOS, Teil 2: Dumpen und Editieren, 
Arne Schäpers. 7/86/24 

— EDIT, Übungen zum Disk-Editor. 6/ 
86/24 

— FORMAT-Befehl für ProDOS. us. 5/ 
85/56 

— MAKESUB. Erstellung zusammen- 
hängender Subdirectories, Arne Schä- 
pers, 3/86/20 

— Megaboard- und AFDC-Massenspei- 
cher. Mit ProDOS-Backup-Programmen 
für die MDB-Festplatte und das Erphi- 
Subsystem. us. 6/86/30 

— Patch für ProDOS.INIT 80 Spuren. 
Hans-Georg Hüneke. 1/84/56 

- ProDOS-Anpassung für Laufwerke 
mit 40 bis 160 Spuren. Horst Hanke und 
Hans-Georg Hüneke. 11/85/29 

— ProDOS-Fastboot oder wie man Pro- 
DOS in 6 Sekunden bootet, Arne Schä- 
pers. Nach einer Idee von us. 9/85/20 

- ProDOS für Anfänger. Teil 2: Das 
definitorische Grundgerüst, us. 4/85/41 
—- ProDOS für Anfänger. Teil 3: Geheim- 
nisse von BSAVE und BLOAD. us. 8/ 
85/18 

—- ProDOS für Anfänger. Teil 1: Was ist 
ProDOS? us. 2/84/12 

— ProDOS-Patch für geänderte F8- 
ROMs. us. (Ergänzung 2/84/10) 1/84/ 
54 

- PRODOS.READER. 4/85/46 

- ProDOS-Runtime-Library. Eine Mu- 
ster-Bibliothek für Assembler-, Ap- 
plesoft- und Pascal-Programme. us, 7/ 
86/40 

— ProDOS, Theorie und Praxis. us. 6/ 
85/52 

— ProDOÖS und „Kompatible“. Ein allge- 
meines Patch-Programm. Arne Schä- 
pers, (Berichtigung in Leserbrief 10/85/ 
69) 1-2/85/31 

- PROTODOS. Konvertierung von Pro- 
DOS- in DOS-3,3-Dateien. Arne Schä- 
pers. 1/86/37 

- QUICKCOPY. Ein schnelles ProDOS- 
Kopierprogramm für 35-80 Spuren. us. 
1-2/85/22 

— Trace-Bug. 4/85/46 

— Was Geschäftsleute vom ProDOS- 
FILER wissen sollten. us. 2/84/20 


PX: Praxis 

— Der Apple als Werkzeug für den Be- 
triebswirt, Teil 1: Das Simplex-Verfah- 
ren in der Controllerpraxis. Willy Holt- 
kamp. 1/86/56 

— Hardware-Kurztip. Anschluß eines 
Brother HR-15 XL Il an den Apple Ilc, 
Hans-Peter Sprauer. 7/86/59 

— Matrizenrechnung in der betriebswirt- 
schaftlichen Praxis. Dipl.-Betriebswirt 
Willy Holtkamp. 2/86/29 

— Registerprogramm für Buchregister 
und zweisprachige Glossare, us. 7/86/6 
— Schreiben mit der Maus. Textverar- 
beitungsprogramm Mousewrite. Tho- 
mas Bühner. 7/86/56 


RE: Recht 

—- Ave auctor, plagiarii te salutant. Soft- 
ware und Zitatrecht. us. 9/85/6 

—- Knock, Knock! Who's there? Software 
und Kopierrecht. us. 4/85/6 

— Rechtsprechung zum Software-Urhe- 
berrecht. RA Dieter Naber. 10/85/47 

—- Urheberrechtsnovelle. us. 9/85/11 


SC: Schule 

— Höhere Präzision bei den vier Grund- 
rechenarten, Konrad Steinmeier, 3/85/ 
30 

— Testgenerator für Legastheniker. 
Dr,Wolfgang Kersken, 3/85/22 

— Vokabeltrainer. Vokabeln lernen mit 
dem Apple Il. Thomas Zink. 1/86/20 
(Berichtigung 5/86/74) 


TE: Technik 

— Bit-Editor, Zeichensatz-EPROMSs für 
die Videx-Karte. Joachim Klamt. 7/85/ 
29 

- Der Apple Il als persönliches Inge- 
nieurwerkzeug. Dipl.-Ing. Bernd 
Worms. 3/85/6 

- Die AP33-Megawarp-RAM-Karte, Mit 
einem RAM-Disk-Driver für ProDOS. 
us. 7/85/8 

—- Die RAM-Karten von IBS, Mit Quell- 
code eines RAM-Disk-Drivers. us, 1-2/ 
85/18 

— Ein intelligenter Harddisk-Controller. 
Aufbau und Arbeitsweise des Megabo- 
ards. Dr,-Ing. T. Mulica, 4/86/20 

—- FORMATTER. Ein universelles For- 
matierungsprogramm. Arne Schäpers. 
(Ergänzung 9/85/69) 7/85/20 

- Fourier-Analyse, Peter Walber, (Be- 
richtigung 9/85/69) 6/85/38 

— Meßwertverarbeitung. Praktikumsaus- 
wertung mit dem Apple. Volker Herr- 
mann. 3/86/58 

— Testprogramm für Apple-Il-Disketten- 
systerne. Analyse von Disketten, Lauf- 
werk und Controller. Dipl.-Ing. Gerhard 
Bera. 8/85/6 


TK: Telekommunikation 

— Modems kommen in Mode. Prakti- 
sche Ratschläge für die Telekommuni- 
kation mit Modem. Matthias Pohl. 2/84/ 
36 

— Terminal-Programm für den Apple Il. 
Andreas Lecreux. (Ergänzung 6/85/72) 
4/85/34 

— Weltweite Datenübertragung mit dem 
WS 2000. Ein Universalmodem für alle 
Normen, Matthias Pohl, 1-2/85/84 


TU: Turbo-Pascal 

— CP/M-56K-RAM-Disk unter Turbo- 
Pascal. Bernd Eichinger-Wieschmann, 
12/85/62 

— Filer für CP/M. Ein Dateikopierpro- 
gramm in Turbo-Pascal. Gerhard Run- 
ge. 9/86/40 
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— Fußballweltmeisterschaft 1986 in Me- 
xiko. Ein Simulationsprogramm in Tur- 
bo-Pascal 3.0. Manfred Stertenbrink, 5/ 
86/6 

— READPAS, Konvertierung von UCSD- 
in Turbo-Pascal-Textfiles. Michael Er- 
perstorfer. 1/86/48 (Berichtigung 5/86/ 
23) 

— Turbo-Pascal Schritt für Schritt. Dr. 
Ekkehard Kaier. 17/84/51 


UC: UCSD-Pascal 

— Apples Maus lernt jetzt auch Pascal. 
Jürgen Geiß. 4/85/48 

— Designer, Zeichensatz-Generator in 
Apple-Pascal. Gabor Herr, 1/86/43 

— Dreiecksberechnungen in UCSD- 
Pascal. Samuel Schmid. 9/86/48 

— GETDOS: Konvertierung von DÖS- in 
Pascal-Textfiles. Jürgen Geiß. 1-2/85/ 
70 

— GETPAS: Konvertierung von Pascal- 
in DOS-Textfiles. us. 1-2/85/68 

— Interaktive Funktionseingabe. Ger- 
hard Röhner. 4/86/58. 

— Pascal-Diretory unter der Lupe. Dieter 
Geiß. 1-2/85/64 

— Pascal 1.2. Eine Richtigstellung. Ber- 
nard Condrau. 10/85/60 

— Pascal-Kompaktkurs für Applesoft- 
Programmierer. Hinweis für Sammel- 
disk. us. 10/85/46 

— Pascal-Kompaktkurs, UCSD- und 
Turbo-Pascal. Teili: Grundlagen für Ap- 
plesoft-Programmierer, us. 12/85/33 

— Pic-Edit, Ein universeller Grafik-Editor 
in 128K-Apple-Pascal 1.2. Jürgen Geiß 
8/86/6 

— RAM-Disk-Driver für Pascal 1.1. Mi- 
chael Schröter, (Berichtigung 7/85/52) 
6/85/48 

— SUPERDUMP für Apple-Pascal 1.1 
und 1,2, Grafik-Ausdruck für Epson- 
FX80 und Imagewriter |, Jürgen Geiß. 6/ 
86/40 

— Superschnelle Bildschirmausgabe in 
Apple-Pascal. Dr. Wolfgang Braun, 5/ 
86/29 

— Tips und Tricks in Pascal. Teil 5: As- 
sembler-Ein/Ausgabe in UCSD-Pascal. 
Dieter Geiß. 2/86/47 

— Tips und Tricks in Pascal. Teil 7: Der 
externe Aufbau von Files, Dieter Geiß, 
5/86/34 

— Tips und Tricks in Pascal. Teil 6: Der 
interne Aufbau von Files. Dieter Geiß. 
3/86/48 

— Tips und Tricks in Pascal, Teil 4: Die 
Compiler-Optionen. Dieter Geiß. 11/ 
85/57 

— Tips und Tricks in Pascal. Teil 1: Die 
versteckte Prozedur „Idsearcn" oder 
wie man Schlüsselwörter halbfett 
druckt. Dieter Geiß. 8/85/48 

— Tips und Tricks in Pascal. Teil 2: Kann 
man den P-Code optimieren? Dieter 
Geiß. 9/85/40 

— Tips und Tricks in Pascal, Teil 3: P- 
Code-Cruncher für 128K-Pascal, Dieter 
Geiß. 10/85/50 

— Transzendente Funktionen in Pascal, 
Dieter Geiß. 5/85/35 


UT: Utilities 

— Befehlserweiterung durch CHRGET- 
Manipulation. Dr. Jürgen B. Kehrel, 2/ 
86/38 

— DOS-3.3-Backup-Programm für die 
Megaboard-Festplatte. us. 5/86/61 
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— Erphi-Patch für Superquick, Jetzt 
auch 160 Tracks in Windeseile kopiert. 
Dr, Jürgen B. Kehrel, 5/86/59 

— Quicksort, Eine superschnelle Ap- 
plesoft-Erweiterung. Harald Grumser. 
1/86/16 


2. Kleinbeiträge 


BU: Bücher 

— Anwenderprogramme. 4/86/65 

— 6502 Anwendungen. 1-2/85/93 

— Apple Assembler. 2/84/78 

— Apple-Assembler lernen. 1/886/69 

— Apple DOS 3.3. 1/84/65 

— Apple DOS unter der Lupe. 7/86/60 
— Apple Grafik, 5/86/68 

— Apple It Basic Handbuch, 4/86/64 

— Apple Ilc. 5/86/67 

— Apple II-DOS 3.3-Assembler-Listing. 
5/86/68 

— Apple Il für Technik und Wissenschaft. 
71/86/60 

— Apple Il für Technik und Wissenschaft. 
10/85/67 

— Apple !} leicht gemacht. 1/84/65 

— Apple II ROM Listing. 1-2/85/93 

— Apple II Tips & Tricks. 2/84/76 

— Apple Maschinensprache, 2/84/78 

— Apple ProDOS für Aufsteiger (Band 
1). 2/84/78 

— Applesoft BASIC, 1/86/69 

— Apple-Works. 5/86/68 

— Arbeiten mit dem Macintosh. 5/86/67 
— 68000 Assembly Language Program- 
ming (Kurzrezension). 9/86/24 

— Auswahl und Einsatz lokaler Netzwer- 
ke, 7/86/61 

— Basic: Alles über Peek und Poke, 4/ 
86/64 

— Basic: Die perfekte Behandlung von 
Zeichenketten. 4/86/64 

— BASIC für Fortgeschrittene. 7/86/61 
— Basic: Mathematik per Computer. 4/ 
86/64 

— Basic: Programme für Kaufleute. 4/ 
86/64 

— BASIC Übungen für den Apple. 2/84/ 
76 

— BASIC-Wegweiser für den Apple Il. 5/ 
86/67 

— Basic: Zahlen-Umwandlungen. 4/86/ 
64 

— Betriebssystem CP/M. 4/86/65 

— Bewegte Apple-Grafik. 1/86/69 

— Bücher für Elektronik + Computer. 2/ 
84/76 

— Computereien. 7/86/61 

— Computereien 2. 7/86/61 

— Computer für Kinder. 7/86/60 

— Computergrafische Experimente mit 
Pascal. 7/86/62 

— Computer im Unterricht. 7/86/63 

— Computerspiele und Computergrafik. 
7186/62 

— Das Apple Macintosh Buch. 10/85/67 
— Das Buch zum Apple Il. 1-2/85/93 

— Das Buch zum Apple-Writer Il/lle, 7/ 
86/60 

— Das Floppybuch zum Apple Il, 5/86/ 
67 

— Das große BASIC-Lernbuch. 5/86/67 
— Das Hacker HACKBUCH. 7/86/61 

— Das Macintosh Arbeitsbuch. 5/86/67 
— Das Modembuch zur DFÜ. 4/86/64 

— Das ProDOS-Handbuch. 5/86/67 

— Datenmanagement mit dem Apple Il, 
7/86/60 

— dBase Il. 1/86/69 

— DOS 3.3 — das Diskettenbetriebssy- 
stem des Apple Il. 4/86/65 


— EDV - kein Geheimnis, 7/86/61 

— Einführung in die Apple UCSD-Pas- 
cal-Systeme. 7/86/60 

— Fortgeschrittene 6502 Programmie- 
rung. 1-2/85/94 

- FORTH ganz einfach. 7/86/62 

— Grafik- und Elektronikprogramme für 
den Apple Il, 7/86/60 

— Grundkeninisse Pascal. 4/86/64 

— 1515 Personal Computer Report. 4/ 
86/64 

— Lerne BASIC auf dem Apple. 10/85/ 
67 

— Macintosh. 10/85/67 

— Macintosh (Anwenderhandbuch). 10/ 
85/67 

— Macintosh Benutzerhandbuch, 1-2/ 
85/94 

— Mathematik auf dem Apple Il, Ile, Ilc, 
10/85/67 

— Mathematische + Wissenschaftliche 
Programme in Basic. 1/84/65 

— Mein BASIC-Manual, Teil 1. 5/86/67 
— Mikrowissen A-Z. 7/86/61 

— Modelle der Wirklichkeit. 7/86/63 

— Now That You Know Apple Assembly 
Language: What Can You Do With It?. 
5/86/67 

— Pandasoft-Katalog. 2/84/78 

- ProDOS-Analyse. 1/86/69 

— Programme in Microsofi-BASIC, 5/ 
86/68 

— Programme zur Wahrscheinlichkeits- 
rechnung und Statistik. 5/86/67 

— Programmieren in FORTRAN 77. 7/ 
86/62 

— Programmierkurs mit Microsoft-BA- 
SI0. 7/86/62 

— Programmiersprache BASIC - Schritt 
für Schritt, 7/86/61 

— Programmierung des 68000, 4/86/64 
— Programmierung des 6502, 1-2/85/93 
— Programmierung des 68000 (Kurzre- 
zension). 9/86/24 

— Programmierung des M68000 (Kurz- 
rezension), 9/86/24 

— Rechnerunterstütztes Konstruieren 
(CAD). 7/86/62 

— Schulsoftware-Katalog. 2/84/76 

— Schulsoftware-Katalog Apple. 7/86/ 
60 

— Softwareführer 1986, 4/86/64 

— Spielend Programmieren lernen. 7/ 
86/61 

— Spielprogramme für den Apple Ile. 5/ 
86/67 

— Statistik in Basic. 1/84/65 

— SYBEX Mailbox Führer. 7/86/62 

—  Technisch-naturwissenschaftlicher 
Pascal-Trainer. 7/86/61 

— The Apple in your hand, 2/84/76 

— The Custom Apple & Other Mysteries. 
71/86/61 

— Trainingsbuch zu APPLESOFT-BA- 
SIC. 10/85/67 

— Was ist wo im Apple. 1/86/69 


HP: Händlerprofil 

— HIB. Der Computerladen in Nürnberg. 
9/85/59 

— Orgasoft plant für die Zukunft, 4/85/ 
67 

-r + relectronik. 2/84/69 


KU: Kurzberichte 

— Analytisches Inhaltsverzeichnis der 
Peeker-Sammeldisketten #1 bis #18, 
6/86/64 

—- An Ear to the Ground. us 

— Apple-Bücher im Preisvergleich. 4/ 
85/70 

— Apple dementiert „Heute Journal", 
10/85/76 


—- Apple-Geschichte. 9/85/64 

— Apple GmbH erhöht Stammkapital. 
10/85/76 

— Apple-Händler-Netz umstrukturiert. 
10/85/76 

— Apple Ile-Emulation für Apple Ill, 9/ 
85/64 

— Apple-Kompatible. Hans-Kurt Kuhn. 
5/85/66 

— Apple-Kompatibler MK Il. 9/85/65 

—- Apple-Paketpreise. 9/85/64 

— Applepreise = Mondpreise? us. 8/85/ 
67 

— Apple-Schul-Programm AULA, 9/85/ 
65 

— Appletalk für Macintosh, 9/85/65 

— Auf dem Abstellgleis: Steve Wozniak, 
4/85/68 

— AUGE und Apple-München. 4/85/68 
— BTX für Apple IIc. 10/85/77 

— Buchhaltungsprogramm BUCH. 10/ 
85/75 

— Design-Preise für Apple lic, 9/85/65 
— Digitalisiertabletts höchster Präzision, 
10/85/75 

-—- Druckertisch. 9/85/66 

— Ergänzungen zu „ProDOS für Aufstei- 
ger“, Bd. 1. Arne Schäpers. 4/85/69 

— Erno Unibox. 9/85/65 

— Flugsimulator mit deutscher Anlei- 
tung. 10/85/75 

— 4.000 Frei-Programme. 10/85/75 

— Hard- und Software zum Apple Ilc. 
Mathias Pohl. 17/86/67 

— Incircuit-Emulator, 9/85/64 

— 10 Jahre Apple Computer. Ein Rück- 
blick. Dr. Jürgen B, Kehrel, 5/86/64 

— 640K-Drive für Ilc. 9/85/64 

— 512K für Apple Ill. 9/85/64 

— Kleine Mikrocomputer-Chronik, us. 
12/85/64 

— Kopierschutz für den Apple Il. Mat- 
thias Greve. 5/85/61 

— Kyan-Club-Nachrichten, 5/86/60 

— Kyan-Pascal. 1/86/29 

— Laserwriter von Apple. 9/85/65 

— Leasing von Apple-Computern. 10/ 
85/76 

— Lisa/Mac-Screenswitcher. 9/85/64 

— Mac-Leasing für Studenten: 10/85/76 
— Macpack, 9/85/64 

— Mac-Pressekonferenz bei Apple in 
München. Harald Grumser. 10/85/77 

— Macprint-Satzsystem. 10/85/76 

— Macprolog2-Interpreter. 10/85/76 

— Mactablet. 39/85/64 

— Maus: Mac an Hochschulen. 10/85/ 
76 

—- Melco-Druckpuffer von Watanabe. 10/ 
85/75 

— 20M-Festplatte für Mac. 9/85/65 

— Neologismen in der Computerspra- 
che. us. 5/85/60 

— Neuer Apple-Kompatibler. 10/85/75 
— No Orchids für Miss Lisa. Lisa und die 
Foigen. us, 7/85/67 

-— Notstromaggregat. 9/85/66 

— OKI-Drucker für Apple Il. 10/85/76 

— Plazierung von Apple-Computern, 2/ 
86/68 

— Präsentationsgrafiken mit 
GRAF. 10/85/75 


— Pressestimmen zur Wirtschaftstage 
von Apple. 9/85/69 


— ProDOS-Bücher und -Aufsätze 4/85/ 
69 


— Siemens entdeckt neue Primzahl. 8/ 
85/74 


— Sound Sampling System. 10/85/76 
— Spooler für Epson-Drucker. 9/85/65 
— Teletex für den Apple Il: 10/85/77 
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— Transfer II Terminalprogramm, 9/85/ 
65 

—- Turbo-Lader Graph. 10/85/76 

— Wie gibt man Maschinenprogramme 
ein? 6/85/70 


LE: Leserbriefe 

— 2/84/8, 4/85/72, 5/85/70, 6/85/69, 5/ 
86/72, 2/86/64, 9/85/66, 7/85/73, 3/ 
85/77, 10/85/68 

- Dieter Geiß beantwortet UCSD-Pas- 
cal-Leserbriefe. 5/86/69 

— Jörg Bliesener beantwortet GP/M- 
und Wordstar-Leserbriefe. 6/86/68 

— Pascal-Leserbriefe. 12/85/68 


NA: Nachträge 

— Diversi-DOS 2-C, 8/85/68 

— Druckfehler im Programm „Desig- 
ner". 2/86/65 

— Formatter, 9/85/69 

— Fourier-Analyse. 9/85/69 

— Korrekturen und Errata zu früheren 
Peeker-Heften. 5/86/73 

— Nachtrag zum Pascal-RAM-Disk- 
Driver. 7/85/52 

— PLOT 2.0. 9/85/69 

— Schwierigkeiten mit den Graf-quattro- 
Cursoren. Nino G. Barbieri. 10/85/63 
— SUPERDUMP und Apple Ilc. 8/85/50 
— Terminal-Programm für die Super-Se- 
rial-Card. Andreas Lecreux. 6/85/72 

— Tips zur Konvertierung der Adreßver- 
waltungs-Dateien von DOS 3.3 nach 
CP/M. 10/85/21 


PR: Produktberichte 

— A/D-Wandlerkarte Softcard II. 5/86/ 
TE 

— AFC-Tastatur mit Maus für Apple. 1/ 
84/63 

— Aktienanalyse mit Stockmaster. 9/86/ 
69 

— Akustikkoppler AK 300, 4/85/77 

— Akustikkoppler dataphon s-21-d. 4/ 
85/77 

— Apple-Assembler. 9/86/69 

— Atari-Joystick und Apple. 2/84/75 

— BASF-Reinigungs- und Justagedis- 
ketten, 6/86/68 

— Beliebte Apple-Spiele. 3/85/73 

— Bidirektionaler Datenverkehr zwi- 
schen Apple und Brother-Typenrad- 
schreibmaschine., 1/84/64 

— Bildschirm-Dump auf Tastendruck. 
Fingerprint Plus. Thomas Bühner. 4/86/ 
66 

— Branchenprogramm Reisebüro, 1-2/ 
85/97 

— 65C02 + Accelerator: Wer liefert 
was? 1/84/64 

— CAD-System SYNCAD. 3/86/69 

— Champion-Drucker-Karte, 5/86/76 

— Computerunterstütztes Lernen. 1-2/ 
85/99 

- Copy-Killer jetzt in deutsch, 8/85/76 
- Copy Killer (Kopierschutzsystem). 1/ 
84/64 

— CP/M für Apple Ile. 9/86/70 

— CP/M-Karte für Apple lic. Harald 
Grumser., 4/86/69 

— CSW-EPROM-Karte für Apple Il. 3/ 
86/67 

— CTS-Mineralöl, 2/84/75 

— Das Bildverarbeitungssystem MAGIC, 
8/85/74 

— Daten-Diagnosesystem, 3/86/68 

- Die bessere Maus. Maus für Apple-Il- 
Rechner. Thomas Bühner. 4/86/67 

— Diskettenkasten für Hängeregistratur. 
3/86/66 
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— Disketten von Mitsubishi, 3/86/66 

— Doppel-Parallelinterface mit RAM 
oder EPROM. 1-2/85/96 

— Drucker-Treiber. 5/86/76 

—- DTACK-68000-Board. Ein Erfah- 
rungsbericht. Wolfgang Trier, 6/86/58 
—- Ein Apple macht sich fein. Staub- 
schutz-Abdeckungen. Thomas Bühner, 
4/86/66 

— Einbau der CP/M-3,0-Karte in den 
Apple IIc. 2/86/63 

— Ein Heim für die Maus. Mouse Trap. 
Thomas Bühner. 8/86/6 1 

— Erphi FSS 280. 2/86/67 

—- Europrint FT 80 X. 5/86/76 

— Fakturierungsprogramm Faktufix. 5/ 
86/76 

— Flipper-Karte. 5/86/76 

— Fußball-Bundesliga. 9/86/69 

— Gepard-Computer. 5/86/78 

— Grafiktablett für Mac. 5/86/76 

— Grafik zu Papier bringen. Hires-Gra- 
fik-Druckprogramme. Imagewriter Il, 
Printographer und Zoom Grafix. Tho- 
mas Bühner. 8/86/63 

— High Fidelity Adapior, Thomas Büh- 
ner. 3/86/61 

— Imagewriter II und Unidisk im Kurz- 
test. us. 8/86/56 

— Individuelle Zeichensätze für Matrix- 
drucker (DMP-Charger). 1/84/63 

— INTERTEXT. Internationale Textauto- 
mation mit dem Apple lle. 4/85/76 

— Jazz 1A für Mac Plus. 5/86/76 

— ‚Joystick einfacher anschließen. Ga- 
me-Socket-Extender. Thomas Bühner. 
4/86/68 

— Juki-Typenraddrucker, Juki 6500. Juki 
6300T. 9/86/69 

— Keycom 6. Eine externe Tastatur für 
den Apple Ile. 7/86/65 

— 64K-Karte für Ile. 1-2/85/96 

— Kyan-Pascal. 12/85/77 

— Laser 128, Ein Apple-IIc-Kompatibler. 
Hans-Martin Eng. 7/86/64 

— Lohn- und Gehaltsabrechnung, 1-2/ 
85/97 

— Lotus — Jazz, ein multifunktionales 
Software-Paket. 1-2/85/97 

— MacLabel. 2/84/75 

— Mailmerger für AppleWorks. 1-2/85/ 
99 

— Microfloppy mit 2x 1 MByte. 8/85/76 
— Microline-Matrixdrucker. Mlicroline 
292/293. Microline 294, 9/86/70 

— Microline 192 von Okidata. Harald 
Grumser. 3/86/64 

— Mockingboard C. Roland Maisch. 3/ 
86/62 

— Modula-2 für den Macintosh. 1-2/85/ 
96 

— NEC-Matrixdrucker P6/P7. 9/86/70 

— Optokoppler-Karte. 3/86/66 

— OSP-2-Matrixdrucker. 3/86/67 

— PAL-Programmer für Apple. 4/86/69 
— Parallelportkarte für Apple Il. 4/85/77 
— PIA-Karte für Apple Il. 5/86/77 

— Plotter MP 2000. 3/86/69 

— Piusworks, Appleworks auf dem Ap- 
ple II+. Ein Erfahrungsbericht. Herwig 
Cuypers, 65/86/60 

— Preissenkung für Apple-Computer. 3/ 
86/68 

— Prodos-Uhr für Apple Ilc. 9/86/69 

— 8086-Prozessorkarte. 3/86/69 

— RAMWORKS und Z-RAM 3/86/67 

— RGB-Farbinterfacekarte Al-80Z. Ein 
Erfahrungsbericht. Dirk Katzschke. 7/ 
86/67 

— Roboter-Plotter Penman. 3/86/68 

— Roll-Maus. 4/86/69 

— Satzprogramm Pagemaker. 3/86/66 


— Sidekick. Macintosh-Büro-Manager. 
6/86/66 

- Sony-Laufwerke von Ueding. 17/84/64 
— Star Gemini-15. Jürgen Geiß. 7/86/70 
— STATEX für Bildschirme. 1-2/85/97 

— Staub und Schmutz auf Computer und 
Tastatur? 1-2/85/97 

— Synthesizersystem Juice digital, 3/ 
86/66 

— TempoHexe „SpeeDemon“ 65C02C- 
Prozessorkarte. 1-2/85/97 

— TRICARD - Multifunktionskarte für 
Apple Ile. 8/85/74 

— Typenrad-Drucker Typeterm, 3/86/66 
— UCSD p-System für den Macintosh, 
1-2/85/97 

— USV: Unterbrechungsfreie Stromver- 
sorgung. 4/86/70 

— 220V-Steckdosenleiste. 3/86/69 

— Z80+ Card. 4/86/70 

— Z80+ Card. Hans-Martin Eng. 6/86/ 
67 

— Zeichnen mit der Maus. Maus-Grafik- 
tablett— Mouse Tracer, Thomas Bühner. 
8/86/61 

— Z-RAM für den Apple lic. Ein Erfah- 
rungsbericht. Ulrich T6önnies. 6/86/62 


TB: Testberichte 

— Ampersoft. Eine Ampersand-Utility- 
Sammlung. Franz-Josef Hüskens. 1/ 
86/68 

— Apple Il/lle Assembler-Kurs. Dr. Jür- 
gen B, Kehrel. 9/85/62 

— BASF-Flexydisk 1X und ID. us. 11/ 
85/68 

— Beagle Graphics. Roif W. Becker. 8/ 
83/74 

— CP/M-Karte für den Appie Ilc. Dr. 
Jürgen B. Kehrel. 3/85/75 

— Dazzle Draw und Mousepaint. Dieter 
Charchot. 9/85/61 

— Deutsche Sprachausgabe für den Ap- 
ple. Harald Grumser. 9/85/63 

— Die 16K-Akku-Karte LC-85. Harald 
Grumser, 10/85/72 

— Die Microsoft-Premium-Softcard für 
den Apple Ile. us. 11/85/70 

—- Die OPERATOR Ile. Harald Grumser, 
9/85/60 

— Die Polaroid-Foto-Systeme. Thomas 
Bühner und Prof, Dr. Klaus Hausmann. 
8/85/71 

— Diskettenlaufwerke für ProDOS im 
Test. us. 2/84/74 

— Diversi-DOS 4.1-C mit Garbage-Col- 
lection. Rudolf Rötering. 11/85/67 

— Diversi-DOS 4-C, Rudolf Rötering. 6/ 
89/2 

— DMP-Charger — eigene Zeichensätze 
auf dem Matrixdrucker, Harald Grum- 
ser, 9/85/62 (Leserstellungnahme 5/ 
86/73) 

_ Double-Hires-Grafik-Programme. 
Doublestuff Plus. Thomas Bühner. 3/ 
85/70 

— Double-Hires-Grafik-Programme., Su- 
perplot. Anmerkung von us. 3/85/70 

— Druckerumschaltung per Knopfdruck. 
5/85/71 

— Editierhilfen für den Apple. Franz-Jo- 
sef Hüskens, 6/85/77 

— Erfahrungsbericht OPERATOR |, Rai- 
ner Hammerschmidt. 9/85/60 

— Erphi-Controller. Eine kompatible Er- 
weiterung. Harald Grumser. 4/85/75 

— Exbasic Level II im Test. Eine Basic- 
Erweiterung bringt Sie ins Staunen, 
nicht nur positiv. Dr, Jürgen B. Kehrel. 
1-2/85/88 

- Extended Graphic System. Dr. Jürgen 
B. Kehrel. 6/85/71 


— Gestochen scharf. Die Videokarte UI- 
tralerm für den Apple Il. Dieter und 
Jürgen Geiß. 2/84/60 

— Hardbreaker und Softbreaker oder wie 
man Programme „entschützt". us. 3/ 
85/72 

— HOCO-Masterclock. Arne Schäpers. 
3/85/76 

— Kyan-Pascal-Programming Toolkits, 
System Utilities, Mouse Text und Turtle- 
Graphics, Matthias Meyer. 9/86/67 

— Lasar Il ze, Harald Grumser, 6/85/75 
— Lernprogramme von INTUS. Dr. Jür- 
gen B. Kehrel. 6/85/78 

— Mailmerger und Appleworks. us. 4/ 
88773 

— MEGACORE. Festplatte mit 10 MBy- 
tes. Harald Grumser. 7/85/76 

— Memdos Junior, Ein neues Betriebs- 
system für den Apple Il. Dr, Jürgen B. 
Kehrel. 3/85/75 

— Microbuffer ||, Dr. H, Kersten. 2/86/66 
— MS-Basic 2.0 für den Mac. Pit Capi- 
tain. 12/85/76 

— Pascal 1.2 Evolution statt Revolution. 
Claus Rautenstrauch. (Ergänzung 10/ 
85/60) 3/85/65 

- ProDOS-Debugger BUGBYTER. Dr, 
Jürgen B. Kehrel. 8/85/76 

— Prometric-Motherboard. Dr. H. Vogel. 
2/86/66 

- 5.A.M. The Software Automatic Mouth 
oder wie man den Apple zum Sprechen 
bringt. Ralf Augspurger. 2/84/66 

— Slim-Line-Laufwerk von Chinon. 5/ 
Bor 

— Speedemon-Karte. us. 10/85/71 

— Star Delta-10 und Grafstar-Interface. 
Karl-Walter Bott. 7/85/77 

—- The Last Disk-Utility. Ein umfangrei- 
cher Disketteneditor, Harald Grumser, 


5/85/72 
— The Write Choice. Ein preiswertes 


Textverarbeitungsprogramm, Franz-Jo- 
sef Hüskens. 1/86/66 

— Triple-Dump. Ein Bildschirm-Druck- 
programm, Rolf W. Becker. 11/85/66 

— Typenradschreibmaschine Brother CE 
50. Rainer Gerdes. 6/85/76 

— Utilities von Beagle Brothers. Franz- 
Josef Hüskens. 11/85/65 

— Video-Clips für jedermann, Die Video- 
1000-Karte. Norbert Man Brandl. 1/86/ 
63 

— Zwei neue Apple-Ile-Kompatible. Ap- 
pie-Ile-Kompatibler SCSes. Harald 
Grumser. 10/85/74 

— Zwei neue Apple-Ile-Kompatible. Ap- 
ple-Ile-Kompatibler SCSe. Jürgen 
Geiß. 10/85/73 


VE: Verschiedenes 

— Apple-Diebe am Werk. 1-2/85/99 

— Apple-Hotline. us. 3/85/35 

— Apple User Club Austria. 1-2/85/99 
— Diversi-DOS 2-C auf Peeker-Sam- 
meldiskette #6, (Ergänzung 10/85/69) 
6/85/74 

- Große Peeker-Umfrage. 3/85/78 

— Hinweise für Autoren. 2/84/72 

— Hinweise für Autoren, 1/84/62 

— Hinweise für Autoren. 1-2/85/92 

— Hotline. 5/85/68 

— Jahresinhaltsverzeichnis. Peeker 1/ 
84 bis 12/85. 12/85/72 

— Paul Lutus im ZDF. 9/85/68 

— Peeker-Sammeldisketten #1-#11. 
1148574 

— Pyramid Pitty als Hex-Dump? 9/85/68 
— Richtlinten für Autoren, 12/85/61 


Fr%* 
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Stichwort-Sucher 


Suchprogramm für kumuliertes Inhaltsverzeichnis 


von Harald Grumser 


Die Peeker-Sammeldiskette #23 enthält 
unter dem Dateinamen JAHRESINHALT 
ein 134 Sektoren umfassendes, kumulier- 
tes Inhaltsverzeichnis aller Peeker-Ausga- 
ben von Heft 1/1984 bis einschließlich 
Heft 9/1986 sowie ein neues Stichwort- 
Suchprogramm. Mit diesem neuen 
WORT.SUCHER läßt sich sehr komforta- 
bel nach Stichwörtern suchen, z.B. nach 
Rubriken, Autoren, Begriffen oder sogar 
Wortfragmenten. Zu diesem Zweck lege 
man die Sammeldiskette #23 ein und 
starte das Programm mit RUN WORT. SU- 
CHER. Wenn man jetzt nur Return eingibt, 
wird automatisch die Datei JAHRESIN- 
HALT geladen. Im Gegensatz zum Inhalts- 
verzeichnis, das in diesem Heft abge- 
druckt ist, enthält die Jahresinhalt-Datei 
keine Kleinbuchstaben und keine Umlau- 
te. Für „Menü...“ gebe man also „ME- 
NUE...“, für „Adreß..“ „ADRESS..." usw. 
ein. 


Wichtiger Hinweis: Verwenden Sie nicht 
den alten Wortsucher von der Sammeldis- 
Kette #12, denn dieses Programm war nur 
für Binärfiles gedacht! 


Wie wird gesucht? 
- Um eine Übersicht über alle Rubrik- 
Namen zu erhalten, gebe man ein Stern- 


WORT.SUCHER 


1® HOME : 
28 PRINT "WORT.SUCHER": PRINT " 
So FRINT - PRINT. 
AB PRINT "TEXTDATEI EINGEBEN!" 
5B PRINT : 


88 PRINT : INPUT "";N$ 


78 IF LEN (N$) = ® THEN NS = "JAHRESINHALT" 


8Ö PRINT CHR$ (A)"OPEN"N$ 
98 CALL 259% 
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PRINT CHR$ (A)"BLOAD WORT. SUCHER. OBJ" 
PRINT "BITTE DEN NAMEN DER" 


PRINT ''{<RETURN> = JAHRESINHALT)" 





chen (x) ein. Die Jahresinhalt-Datei ent- 
hält nämlich als Vorspann eine entspre- 
chende Rubrik-Aufstellung, deren Einträ- 
ge mit „*“ beginnen, 


— Um alle Einträge einer bestimmten Ru- 
brik anzusehen, gebe man das zweistelli- 
ge Rubrik-Kürzel, gefolgt von einem Dop- 
pelpunkt ein, z.B. „AP:". Der Doppelpunkt 
ist hier wichtig, weil die zweistelligen Kür- 
zel auch in anderen Aufsatztiteln enthalten 
sein könnten (z.B. „AP" in „APPLE*). 


— Um alle Aufsätze eines bestimmten Hef- 
tes zu listen, gebe man die Heftnummer in 
der Form „ 1/85/”, „ 10/852" usw. ein, 
also Leertaste + Heftnummer + „/" + 
Jahreszahl + „/". Durch die Leertaste vor 
der Heftnummer und den Schrägstrich 
nach der Jahreszahl wird vermieden, daß 
nach anderen Zahlenkombinationen ge- 
sucht wird. 


—- Um nach einem bestimmten Autor zu 
suchen, gebe man den vollen Zunamen 
ein. 


— Um nach einem beliebigen Begriff zu 
suchen, gebe man diejenige Zeichenfolge 
ein, an die man sich noch erinnert. Bei- 
spielsweise würde „FUNKT“ alle Aufsatz- 
titel anzeigen, die Begriffe wie „Funktio- 
nen” usw. enthalten. 





Eigene Suchdateien 

Der WORT.SUCHER kann auch zum 
Durchsuchen eigener Textfiles verwendet 
werden, sofern sie aus Einzelstrings auf- 
gebaut sind, die durch Returns abgegrenzt 
werden. Dateiaufbau: 

— Gesamtlänge: maximal 135 Sektoren 
($0B6C-$95FF; bei MAXFILES 1 noch 
einige Sektoren mehr). 

— Länge je String: maximal 255 Zeichen. 
— Endmarker: Ctrl-D oder $00 (Dies kann 
im Listing WORT.SUCHER.OBJ, Zeile 
100, geändert werden.) 


Kurzhinweise 


1. Zweck: 

Suchprogramm für Peeker-Jahresinhalts- 
verzeichnis oder ähnlich aufgebaute Text- 
files. 

2. Konfiguration: 

II+/e/c; DOS 3.3 (kein ProDOS!) 

3. Test: 

RUN WORT.SUCHER 

4. Sammeldisk: 

WORT.SUCHER 

T.WORT.SUCHER.OBJ 

WORT.SUCHER 

5. Sonstiges: 

Vor dem Programmstart kann man bei Be- 
darf die 80-Zeichenkarte oder den Drucker 
einschalten, falls die Ausgabe nicht über 
den 40-Zeichenbildschirm erfolgen soll. 


WORT.SUCHER.OBJ 


BSAVE WORT.,SUCHER.OBJ, A2509,1L424 


* 
STICHWORT, SUCHER * 


* 
s Harald Grumser, 1985 x 


=——_ = 


.— Be 
ORG $B9C4 


PROMPT EQU $33 
MEMSIZE EQU $73 


;°) 


56 


B9C4: 
B9C5: 
B9CT: 
99C9: 
BICC: 
ASCE: 
ASDB: 


B9D3: 
d9D6: 
A9D8: 
ÖIDA: 
BS9DE: 
BSDF: 
ÖSEL: 
A9E2: 
Ö9EA: 
A9ET: 
B9E9: 
AGEB: 
Ö9ED: 
BYEF: 
Ö9F]: 
B9F3: 
AOFS: 
d9F8: 


A9PB: 
MOFD: 
ÖYFF: 


BABL: 
BAD: 
BABES: 
BABB: 
BABA: 
BABC: 
AABF: 
BAl2: 
BAl3: 
BA15: 
BALT: 
BALA: 
BAILC: 
BAlE: 
BA21: 
BA23: 
BA25: 
BARB: 
BA2B: 


BAD; 
BAZF: 
BA31: 
BASS: 
BASS: 
DA3T: 
BA39: 
BASB: 
BASD: 
BASF: 
QAAl: 
BA43: 
BAAB: 


öB 


BB 
#3 


dB 


83 


BA 
d3 


FC 


DA 
EB 


B2 


BA 


BA 
BA 


| £ 

RF Fr. 7 ä 
3 Es # 
TEXT EQU 
LEN EQU 
POS EQU 
FMPL EQU 
IN EQU 
DOSWARM EQU 
FM EQU 
GETFMPL | EQU 
KBD EQU 
STROBE EQU 
GETLINEl EQU 
COUT EQU 
HOME EQU 


58 
$FA 
$FB 
$FD 


5289 
$3Dd 
$3D6 
$3DC 


‚File-Manager 
: Parameter-Liste 


$CHBd | 
$CH1d 


$FD6F 
$FDED 
$FC58 


* Datei einlesen 


+ Datei muß durch Applesoft-Programnm 
* geöffnet werden!!! 


SEC 
LDA 
SBC 
STA 
LDA 
SBC 
STA 


JSR 
STY 
STA 
LDY 
LDA 
STA 
DEY 
BPL 
JSR 
BCE 
LDY 
LDA 
CMP 
BEQ 
LDA 
LDX 
JSR 
JMP 


SETFMPL 


ERROR 
RETURN 


LDA 
LDX 
BNE 


TOOLONG 


#* Such-String 
START JSR 
LDA 
STA 
LDA 
LDX 
JSR 
JSR 
TXA 
BEQ 
STX 
LDA 
CMP 
BEQO 
JSR 
LDA 
LDX 
JSR 
JSR 
BMI 


MEMSIZE 
#<BUFFER 
LENGHT 
MEMSIZE+1 
#>BUFFER 
LENGHT+1 


GETFMPL 
FMPL 
FMPL+1 

#9 
FMPLIMGE, Y 
{FMPL).Y 


SETFMPL 
FM 
TOOLONG 
#19 
(FMPL),Y 
#5 
START 
#<TEATS 
+>TEXT3 
TXTOUT 
DOSWARM 


:Return-Code 
;OUT OF DATA 


#+<TEXT4 
#>TEXT4 
ERROR :immer 
einlesen 


HOME 
FEST 
PROMPT 
#<TEXTl 
#>TEXTl 
TXTOUT 
GETLINE1 


START 
LEN 

IN 

+$83 
RETURN 
SEARCH 
#<TEXT2 
#>TEXT2 
TXTOUT 
KEYWAIT 
START 


‚Gtrl-6 


‚immer 


* Stichwort suchen 


SEARCH LDY 
LDA 
STY 
STA 
LDX 
STY 
CPX 
BEQ 
LDA 
BEQ 
CMP 
BEQ 
CMP 


SLOOP 


SLOOP1 


#<BUFFER 
#>BUFFER 
TEXT 
TEXT+] 
#500 

POS 

LEN 
FOUND 
(TEXT),Y 
RETSRCH 
+584 
RETSRCH 
+$58D 


‚Ctri-D 


MAT: 
DAS: 
BAAC: 
BAAR: 
BAAF: 
DASB: 
BAS2: 
BASA: 
BASS: 


Ba57: 
BASS: 
DABA: 
BASC: 
BASF: 
BA6l: 
BA63: 
BASE: 
BASS: 
BASB: 
BASED: 
BAT7B: 
BA72: 


BA74: 
BATS: 
BATT: 
BATE: 
DATA: 
BATC: 
BATE: 
BABP: 


BAB2: 
MABS: 


BASE: 
BABB: 
BABA: 
BASC: 
BASE: 
BAR: 
BA93: 
MA9A: 
BASIS: 
BAYB: 
BASA: 


BASB: 
BASE: 
BAAL: 
BAAZ: 
BAAS: 


DAAT: 
BAAS: 
MABB: 
BACI: 
BACZ: 


BABES: 
BAES: 
BAFA: 
ABR5: 
BBBE: 
ÖBl6: 
BB2B: 
BBRA: 
ÖBZF: 
BB3B: 
BB33: 
AB45: 
BBA6: 
BB48: 
AB51: 
aB52: 
BB54: 
ÖBEl: 


AB62: 
BB68: 
ÖB6A: 


FD 


cd 
cp 


DA 
CE 


63 
8D 
D3 
D4 
D3 
c9 
8D 
cg 
87 
D4 
CF 


DA 


193 
194 
185 
196 
187 
108 
189 
118 
111 
112 
113 
114 
115 
116 
Ele 
118 
119 
128 
al 
122 
123 
124 
125 
126 
127 
128 
129 
139 
131 
152 


133 
134 


135 
136 
137 
138 
139 
149 
141 
142 
143 
144 
145 
146 
147 
148 
149 
159 
151 
152 
153 
154 
155 
156 
157 
158 
159 
166 
161 
162 
163 
164 
165 
166 
167 


168 
169 
178 
ai 
172 
173 
174 
175 
176 
17 
178 
179 
189 
181 
182 
183 
184 
185 
186 
187 
188 
189 
195 





BEQ 
CMP 
BNE 
INX 
INY 
BNE 
LDE 
INY 
BNE 


NEXTPOS 


FOUND 
PRINT 


LDY 
INY 
LDA 
JSR 
CMP 
BNE 
JSR 
LDA 
CMP 
BNE 
JSR 
CMP 
BEQ 


NOSPACE 


NOTFOUND TYA 
LDY 
SEC 
ADC 
STA 
BCE 


INC 
BNE 


RETSRCH S5TA 


RTS 


NOTFOUND 
IN,X 
NEXTPOS 


SLOOP1 
POS 


SLOOP 
#-1 


TEXT" ‚BE 
COUT 
+$8D 
PRINT 
COUT 
KBD 
#+$Ad 
NOSPACE 
KEYWAIT 
+$9B 
RETSRCH 


;ESC 


#509 


TEXT 
TEXT 
SLOOP 


TEXT+1 
SLOOP 


STROBE 


* Text ausgeben 


TXTOUT STA 
STX 
LDY 
LDA 
BEO 
JSR 
INY 
BNE 
ING 
BNE 
RTS 


TXTLOOP 


RTNTO 


* Tastendruck 


KEYWAIT STA 
KEYWAIT1 LDA 
BPL 
STA 
RTS 


* Menütexte 


HEX 
ASC 
ASC 
HEX 
ASC 


TEXTIL 


HEX 
ASC 
ASC 
HEX 
ASC 
ASC 
HEX 
ASCc 
HEX 
HEX 
ASC 
HEX 
HEX 
ASC 
HEX 
HEX 
ASC 
HEX 


TEXT2 


TEXT3 


TEXT4 


FMPLIMGE HEX 


LENGHT HEX 
DA 
BUFFER EQU 


TEXT 
TEXT+1 
#500 
(TEXT). 
RTNTO 
COUT 


TXTLOOP 
TEXT+1 
TXTLOOP 


abwarten 


STROBE 
KBD 
KEYWAITI 
STROBE 


BC ;Ctrl-L 

"BITTE STICHWORT " 

V"EINGEBEN!" 

8DSD 

"(<CTRL-0> <RETURN> = 
PROGRAMMENDE ) " 

8D8DEDSD 

"LISTING ANHALTEN " 

"MIT <SPACE>" 

8D 

"LISTING BEENDEN " 

" MIT <ESC>!" 

8DEDEDED 

"STICHWORT: " 

Rn) 

8D8D37 

_ TASTE DRÜECKEN -' 


11/0-ERROR" 

4%) 

8D87 

"DATEI ZU LANG! 
141%) 


B3B20PDHA BR 
BoRB 

BUFFER 

* 
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GFA-BASIC 


Ein schnelles BASIC im Pascal-Gewand 


1. Gibt es eine BASIC- 
Renaissance? 


Bei den bisherigen 8-Bit-Rechnern mit 
64K RAM war BASIC die einzige Hoch- 
sprache, die sicn bequem im Speicher 
unterbringen ließ. Unter Berücksichtigung 
der Leistungsfähigkeit von 8-Bit-Prozes- 
soren waren die alten BASIC-Interpreter 
echte Glanzleistungen, was die Kompakt- 
heit und die Verarbeitungsgeschwindigkeit 
anbelangte, denn die Systemprogrammie- 
rer der alten Schule griffen tief in die As- 
sembler-Trickkiste, um das Äußerste aus 
der jeweiligen CPU herauszuholen. Dafür 
mußten allerdings erhebliche Abstriche 
hinsichtlich der Anzahl der Befehle, des 
Programmierkomforts und der Strukturie- 
rung gemacht werden. Es verwundert des- 
halb nicht, daß inzwischen im schulischen 
und universitären Bereich meist die Spra- 
che Pascal verwendet wird, die allerdings 
für 8-Bit-Rechner ohne RAM-Disk oder 
Festplatte zu umfangreich und damit we- 
nig komfortabel ist. 


Bei den neuen Rechnern mit 16-Bit-Pro- 
zessor und großem RAM-Speicher könnte 
BASIC eine Renaissance erleben, weil 
nunmehr einer Vermehrung des Befenhls- 
vorrats, einer Erhöhung des Programmier- 
komforts sowie einer Erweiterung durch 
pascal-ähnliche Strukturen nichts mehr im 
Wege stünde. Damit ließen sich zwei Flie- 
gen mit einer Klappe schlagen: Zum einen 
würde der Interpreter den Umgang mit der 
Programmiersprache sowie die Programm- 
entwicklung ungemein erleichtern. Zum 
andern würden leistungsfähige und relativ 
schnelle Programme entstehen, deren 
Ausführungsgeschwindigkeit bei Bedarf 
mit Hilfe eines Compilers noch erheblich 
gesteigert werden könnte. 
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getestet von Ulrich Stiehl 


Die ersten BASIC-iInterpreter für den Mac- 
intosh und den Atari ST, die teils in ande- 
ren Hochsprachen (C usw.) geschrieben 
worden sind, waren jedoch eine herbe 
Enttäuschung. So war beispielsweise das 
Microsoft-BASIC für den Macintosh oft so- 
gar noch langsamer als das Applesoft-BA- 
SIC für den alten Apple Il. Ähnlich Uner- 
freuliches erlebten wir mit dem Digital- 
Research-BASIC für den Atari ST, das bei 
einer Länge von rund 140K über einen 
gegenüber CP/M-MBASIC nur unwesent- 
lich erweiterten Befehlsumfang verfügte 
und zudem enttäuschend langsam sowie 
völlig „verwanzt“ war. So führten be- 
stimmte Befehle, z.B. X = 75.7, zu einem 
völligen Systemzusammenbruch, so daß 
der Griff zum Reset-Knopf zur Gewohn- 
heit werden konnte. (Es ist jedoch soeben 
eine neue BASIC-Version von Metacomco 
angekündigt worden, die kostenlose an 
Atari-Besitzer abgegeben wird.) 


Mit dem GFABASIC der Firma GfA Sy- 
stemtechnik in Düsseldorf liegt jetzt je- 
doch ein Interpreter vor, der vielen Atari- 
Besitzern BASIC wieder für kleinere bis 
mittelgroße und vielleicht sogar für große 
Programmieraufgaben schmackhaft ma- 
chen wird. Greifen wir als Beispiel den 
Komfort heraus. An anderer Stelle wird in 
diesem Heft der zweifellos sehr leistungs- 
starke Mark-Williams-C-Compiler gewür- 
digt, der für große bis sehr große Pro- 
grammprojekte ausgelegt ist. Es verwun- 
dert deshalb nicht, daß dieser C-Compiler 
für einen Einzeiler, z.B. „printf soundso“, 
bei Verwendung von Diskettenlaufwerken 
3 Minuten benötigt und dabei einen 8K 
langen Objektcode erzeugt. Der Wechsel 
zwischen Editor und Compiler wird des- 
halb bei kürzeren C-Programmen zu einer 
zermürbenden Angelegenheit. 


2. Vor- und Nachteile 
2.1. Vorteile von GFABASIC 


® Der Interpreter nimmt nur ca. 56K ein 
und wird in weniger als 10s komplett von 
Diskette geladen, und zwar wahlweise 
vom GEM-Desktop oder auch aus einem 
DOS-Shell-Programm heraus (s. Peeker, 
10/86, S. 73). Danach wird im Gegensatz 
zu anderen Programmiersprachen, zu de- 
nen neben C, Pascal usw. auch das Micro- 
soft-BASIC für den Macintosh gehört, 
nicht mehr auf die Diskette zugegriffen, da 
das 56K-Programm alles enthält (Editor, 
DOS-Schnittstelle, Interpreter, Runtime- 
Routinen usw.). 

® Der Editor verwendet im Gegensatz 
zum DR-BASIC keine Fenstertechnik und 
ist deshalb sehr schnell. Es wurde dabei 
an alles gedacht, was für die Programm- 
entwicklung erforderlich ist (Überschrei- 
ben, Einfügen, Löschen, Verschieben von 
Programmblöcken, Suchen, Ersetzen 
usw.). Das Einrücken von logischen Pro- 
grammblöcken (If-Then-Konstrukte usw.) 
erfolgt vollautomatisch. Wie beim Apple-Il- 
BASIC (und im Gegensatz zum CP/M- 
MBASIC) kann man Programmzeilen, de- 
ren Syntax nach Eingabe von Return sofort 
überprüft wird, in der Regel ohne Leerzei- 
chen eingeben. So wird beispielswese 
„?.7" automatisch in „Print 0.7“ umge- 
wandelt, so daß man sich im Gegensatz zu 
Pascal keine Gedanken machen muß, ob 
„./ als „O.7" zu schreiben ist. 

® Die Systembefehle (Load, Save, List 
usw.) können wahlweise über die Tastatur 
oder per Maus/Fenster erteilt werden. 
Auch hier denkt der Interpreter mit: Aus 
„savedemo“ wird automatisch „Save 
"Demo.Bas““, aus „listdemo“ wird auto- 
matisch „List "Demo.Lst"“ usw. 

® Die ab Mitte Oktober erhältliche neue 
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Version 2.0 des GFABASIC-Interpreters 
umfaßt etwa 300 Befehle, wenn man z.B. 
„Inp (x)“, „Inp (#n)“ und „Inp? (n)” als 
getrennte Kommandos ansieht. Hinzu 
kommen noch diverse Gemsys-, Vdisys- 
und Bios-Aufrufe. 

@ Programme können gepackt (Dateina- 
me.Bas) oder als ASCII-Textfiles (Dateina- 
me.Lst) gespeichert werden. Im Spät- 
herbst wird noch ein GFABASIC-Compiler 
folgen, doch können im Moment noch kei- 
ne Angaben über die Länge der auf die- 
sem Wege erzeugten Objektcodes ge- 
macht werden. 

® Die Ausführungsgeschwindigkeit der 
Programme durch den Interpreter ist ex- 
trem hoch. Dies gilt namentlich für mathe- 
matische und grafische sowie in geringe- 
rem Maße für string-intensive Programme. 
Auch spielt es kaum eine Rolle, ob Unter- 
programme am Anfang oder am Ende ei- 
nes längeren Programms stehen, da für 
diesen Zweck offenbar Sprungtabellen an- 
gelegt werden. Trotzdem soll der in Arbeit 
befindliche Compiler eine Geschwindig- 
keitssteigerung um den Faktor 2 bis 30 
bringen. Näheres zur Geschwindigkeit 
siehe unten. 

@ Das Zeilennummernkonzept wurden 
zugunsten von Namen für Labels und Pro- 
zeduren fallengelassen. Darüber hinaus 
wurden pascal-ähnliche Strukturen einge- 
führt, z.B. Repeat-Until, lokale Variablen 
und Zeiger, Prozeduren mit Wert- und Va- 
riablenparametern und anderes. Näheres 
hierzu siehe unten. 





Abb. 1: File select-Befehl 


@® Neben den traditionellen BASIC-Befeh- 
len ist auch an die GEM-Desktop-Pro- 
grammierung gedacht worden, die mit 
GFABASIC teilweise spielend einfach ist. 
So erzeugt beispielsweise der Befehl 


Fileseleot "A:\Basio\*.bas", "Demo.bas", D$ 


eine Dateiauswahl-Fenster, in dem man 
wie auf dem normalen GEM-Desktop 
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scrollen und auswählen kann, wobei der 
angeklickte Dateiname in diesem Fall der 
Stringvariablen D$ zugewiesen wird (vgl. 
Abb. 1). 

@ Für den Preis von DM 149,- (ab Version 
2.0 DM 169,-) erhält man eine nicht-ko- 
piergeschützte Programmdiskette sowie 
einen DIN-A5-Ordner, der im wesentli- 
chen aus einer alphabetischen Befehlsbe- 
schreibung besteht. Der Compiler wird se- 
parat zum gleichen Preis erhältlich sein. 
Damit ist das GFABASIC spürbar preis- 
werter als viele andere Programmierspra- 
chen. 


2.2. Nachteile von GFABASIC 


@ Obwohl es zur Version 1.0 bereits zwei 
Updates gab und nunmehr die Version 2.0 
erscheint, die uns freundlicherweise vorab 
zu Testzwecken zugesandt worden ist, 
gibt es immer noch einige harmlose Feh- 
ler, mit denen man leben kann, sowie eini- 
ge unerquickliche Bugs, vor denen man 
sich tunlichst hüten muß. Wenn beispiels- 
weise ein laufendes Programm, das 
Strings in Unterprogrammen bzw. Proze- 
duren verwendet, nicht mit Clear beendet 
wird, darf man, wenn man in den Editor 
zurückgelangt, keine Programmzeile Iö- 
schen. Tut man dies trotzdem und geht 
dann mit Esc in den Runtime-Bildschirm 
zurück, so bekommt man im günstigsten 
Fall die Fehlermeldung „Ungerade Wort- 
Adresse bei Peek“, während im ungün- 
stigsten Fall der Rechner hängt und nur 
noch durch Reset zu neuem Leben er- 
weckt werden kann. Ähnlich wirre, aber 
harmiosere Fehlermeldungen können auf- 
treten, wenn man ein laufendes Programm 
innerhalb einer geschachtelte Schleife un- 
terbricht und dann in den Runtime-Bild- 
schirm zurückkehrt. 

® Die Befehle sind nicht immer konse- 
quent genug durchgeführt und teils auch 
mangelhaft dokumentiert. Beispielsweise 
ist bereits bei der Version 1.0 der Lprint- 
Using-Befehl implementiert, aber nicht im 
Handbuch beschrieben worden. Der For- 
to-Befehl läßt eine Schrittweite (+Step) 
zu, während dies beim For-downto-Befehl 
nicht möglich ist; statt dessen muß man 
dann den For-to-Befehl mit negativer 
Schrittweite (-Step) verwenden. Dann hät- 
te man sich den For-downto-Befehl auch 
ganz schenken können. Der Run-Befehl, 
mit dem man ein Programm direkt von 
Diskette starten kann, heißt skurrilerweise 
Chain, während der eigentliche MBASIC- 
Chain-Befehl mit Common nicht imple- 
mentiert worden ist. Ferner vermißt man 
die Typdeklarationen Defint, Defstr usw. 
sowie einen Random-Befehl, der diesel- 
ben Zufallszahlenfolgen wiederholt erzeu- 
gen kann. 


® Im Editor kann man immer nur einen 
einzigen Befehl pro Zeile eingeben, die 
allerdings 255 Zeichen lang sein kann. Der 
Doppelpunkt ist also nicht als Befehlsse- 
parator verwendbar. Damit müssen Wert- 
zuweisungen wie 

A=1:B=2:C=3 

auf 3 Zeilen verteilt werden. Ab der Ver- 
sion 2.0 kann man wenigstens Rem-Kom- 
mentare in derselben Zeile hinzufügen. 
Als Separator dient dann das Ausrufezei- 
chen, 


Aus Platzgründen beschränken wir uns im 
nachfolgenden auf ausgewählte Pro- 
grammbeispiele zu den Themen Ge- 
schwindigkeit und Strukturierung und brin- 
gen im Anschluß daran eine systemati- 
sche Kurzübersicht. Darüber hinaus wird 
ab dem nächsten Peeker-Heft ein mehrtei- 
liger Kurs für Anfänger veröffentlicht, der 
auch die Editor-Befehle behandeln wird. 
(Die folgenden Programmbeispiele sind 
nicht für Anfänger gedacht.) 


3. Geschwindigkeit 


Die Geschwindigkeit von GFABASIC ist 
enorm. Beispielsweise dauert der Aufruf 
einer „Leerprozedur“, z.B. 

Procedure Name 

Return 

selbst bei einem großen Programm nur 
0,0002s (Sekunden). Durch geschickten 
Einsatz passender Befehle lassen sich be- 
achtliche Geschwindigkeitssteigerungen 
erzielen. Dies gilt namentlich für die Gra- 
fik- und Stringbefehle. 


Bsp. 1: Kreise (GFABASIC) 


Rem Eigener Circle-Befehl 
T=-Timer 
H=329 
v=299 
s=9.6l !Genauigkeit! 
For R=5 To 195 Step 19 
For I=$ To 6.5 Step 5 
Plot H+R#Cos(I},V+R#Sin{I)} 
Next I 
Next R 
Print (Timer-T}/2ß8 !44,6s 
Input A$ 
Rem Implementierter Circle-Befehl 
T=-Timer 
c1s 
For R=5 To 195 Step 1P 
Circle H,V.R 
Next R 
Print (Timer-T}/2d8 !9,75s 
Input A$ 


Bsp. 2: Kreise (Applesoft) 


18 HGR2 : HCOLOR= 7: 
H= 140:V = 98:5 = B.B1l 
38 FOR R= 8 TO 84 STEP 4: 
FOR I=PB TO 6,3 STEP S: 
HPLOTH+Rx (08 (I), 


V+Rx* SIN (TI): 
ad GET X$: TEXT 
5% REM 2355 IIe mit 3,5MHz 


NEXT I,R 


Das obige Beispiel 1 zeichnet 20 konzen- 
trische Kreise, und zwar erst mit dem 
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Punkt-Plot-Befehl (ca. 44.65) und dann mit 
dem Circle-Befehl (ca. 0,75s). Dies ent- 
spricht einem Verhältnis von 60 zu 1. Zum 
Vergleich wird als Beispiel 2 ein Ap- 
plesoft-Programm für den Apple Il mit 3,5- 
MHz-Accelerator vorgestellt. Der hier er- 
mittelte Wert (235s) verhält sich zum 
Punkt-Plot-Demo wie 5,3 zu 1 und zum 
Circle-Demo wie 313 zu 1. GFABASIC 
dürfte im Mittel 15mal schneller als Ap- 
plesoft-BASIC auf einem Apple GS oder 
einem Apple Ile mit Accelerator-Karte 
sein. 


Bsp. 3: Dateikopierprogramm 


Input "Quelldatei";0$ 
Input "Zieldatei ";2$ 
Open mim #1, 0$ 
Open "0",#2,2$ 
R=Lof(#1) 
L=-32256 
While R>L 
B$=Input${L,#1) 
Print #2,B$; 
R=R-L 
Wend 
B$=Input$(R, #1) 
Print #2,B$; 
Close 


Line 
Line 


Das obige Beispiel 3, das 2 Volumes (2 
Drives oder 1 Drive + 1 RAM-Disk) vor- 
aussetzt, zeigt auf eindrucksvolle Weise, 
daß mit wenigen Programmzeilen ein voll- 
ständiges Dateikopierprogramm für Pro- 
gramm- und Datendateien aller Art ge- 
schrieben werden kann. Strings können 
nämlich eine Länge von bis zu 32767 
Bytes einnehmen, die mit den Input/Print- 
Befehlen „auf einen Schlag“ von/auf Dis- 
kette gelesen/geschrieben werden 
können. 


Bsp. 4: Instring-Find-Test 


Rem 15 für den 2886. String 
NZ=2009 
Dim S$(NZ) 
Rem Erzeugen dauert 2ßs 
For X%=1 To NZ 
For YZ=1 To 19 
S$(X%)=S$ (XZ)+Chr$ (Randon(25)+65) 
Next Y$ 


Print N%;", String: ";S$(NZ) 
Input "Suchstring: ";Such$ 
Exit If Such$="" 
T=Timer 
For X2Z=1 To NZ 
If Instr(S$(X%) ,Such$)<>ß Then 


Print X%; 1: ":S$(X%) 
Endif 
Next X% 
Print (Timer-T)/29® 


Loop 


Das obige Beispiel 4 testet GFABASIC 
auf die Verwendbarkeit für Dateiverwal- 
tungsprogramme, für die man üblicherwei- 
se Indexdateien zum Suchen von 
Datensätzen anlegt. Zunächst werden 
2000 „Indexfelder“ (= 2000 Strings mit je 
10 Zufallsbuchstaben) angelegt. Dies dau- 
ert seine Zeit (20s) und zeigt, daß nicht 


Peeker 11/86 


alle String-Befehle schnell abarbeitet wer- 
den. Sehr leistungsfähig ist jedoch der 
Instring-Befehl, der im ungünstigsten Fall 
den 2000sten String in maximal 1s findet, 
nachdem zuvor alle 1999 vorangehenden 
Strings vergeblich überprüft worden sind. 
Wenn also beispielsweise bei einem 
Adreßverwaltungsprogramm für 2000 
Adressen eine Suchdauer von 1s aus- 
reicht, kann man auf intelligente Suchalgo- 
rithmen (binäres Suchen usw.) verzichten 
und statt dessen die leicht programmier- 
bare „Holzhackermethode“ (sequentielles 
Durchsuchen) anwenden. 


Bsp. 5: Primzahlen bis 6 Mio. 


Tl=-Timer 
HR=600B909 
Dim P!(H%) 
S%Z=Int({Sqr (HZ))+1 
Arrayfill P%(),®d 
For X%=2 To 5% 
If P!I(X%)=® And X%+X%<H%Z Then 
For YZ=X2+HX% To H% Step X% 
PI(YZ)=-1 
Next Y% 
Endif 
Next X% 
T2=Timer 
T3=(T2-T1)/2#8 
Print Int(T3/68);"m, ”; 
Print Int(T3-Int (T3/69)x6ß) ;"s!" 
Rem Fast exakt 59 min. bis 6.009.00% 
AR=D 
For X2=2 To H% 
If P!{xX%)=® Then 
Inc AZ 
Endif 
Next X% 
Print AZ;" Primzahlen von 2 bis ";H% 
Rem 412.849 Primzahlen bis 6.BP9.d00 


Das obige Beispiel 5 zeigt nicht nur die 
Geschwindigkeit, mit der der Eratosthe- 
nes-Primzahlenalgorithmus abgearbeitet 
wird (50 Minuten für 412.849 Primzahlen 
von 2 bis 6.000.000), sondern daß unter 
GFABASIC der Speicher vollständig ge- 
nutzt werden kann. Beim Atari 1040 ST 
stehen nämlich unter GFABASIC bis zu 
800K für Programm und Daten zur Verfü- 
gung (beim 520 ST entsprechend weni- 
ger). Zudem werden boolesche Arrays bit- 
mäßig gepackt gespeichert. Für 6.000.000 
boolesche Werte werden 6.000.000 : 8 
Bits = 750.000 Bytes benötigt. Damit ist 
der Speicher dann weitgehend voll. Viele 
andere Programmiersprachen (2B 
UCSD-Pascal) sind nicht in der Lage, der- 
art gigantische Arrays zu verwalten. 


4. Strukturierung 


Wer schon unter Pascal programmiert hat, 
wird an GFABASIC seine wahre Freude 
haben, denn es wurden mit Ausnahme 
des Case-Befehls alle pascaltypischen 
Strukturbefehle implementiert und darüber 


hinaus weitere Strukturen (Do-Loop) ein-. 


geführt. Ein. Vergleich der: wichtigsten 
Könstrukte (P = Pascal; B= GFABASIC): 
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For-Schleife 
er 
Forl:= AToE Do Begin ... End 
B: 
Forl=AToe... Next 
Repeat-Schleife 
P: 
Repeat ... Until bedingung 
B: 
Repeat ... Until bedingung 
While-Schleife 
2. 

hile bedingung Do Begin ... End 
B: 
While bedingung ... Wend 
If-Verzweigung 
P: 


IF bedingung Then Begin ... End 
B: 


It bedingung Then ... Endif 


Das nachfolgende Beispiel 6 zeigt die 
Anwendung der Strukturbefehle unter 
GFABASIC. Darüber hinaus besteht, wie 
aus dem Demo ersichtlich ist, die Möglich- 
keit, Prozeduren mit Wert- und Variablen- 
parametern zu definieren. Darauf werden 
wir zu einem späteren Zeitpunkt im Peeker 
näher eingehen, 


Bsp. 6: Strukturbefehle 


Print "Aufwärts-Step möglich" 
For I=1 To 3 Step 6.5 
Print 
Next I 
Rem —— 
Print "Abwärts-Step nicht möglich" 
For I=3 Downto 1 


Print. I 
Next I 
Rem ————-- u. 
Print "Statt Zeilennummern Labels" 
Goto Label 
Print "Wird ignoriert" 
Label: 
Print "Hier bei Label" 
Rem -—— — —-------- 
Print "Repeat-Vergleich nachher" 
I=1 
Repeat 
Print I 
I=I+l 
Until I>s 
Rem —— 
Print "%While-Vergleich vorher" 
I | 
While I<=3 
Print 
I=I+l 
Wend 
Rem ---————--—--- -- — 0... 
Print "Endlosschleife mit Exit" 
I=1 
Do 
Print. I 
I=I+tl 
Exit Ir 1>3 
Loop 
Rem ----- — —- —-— — ---- 00 
Print "If-endif" 
I=ß 
If I=ß Then 
Print 9 
Endif 
Rem ——, 
Print "If-then-else-endif" 
If I=1 Then 
Print 1 
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Else 
If I=2 Then 
Printee 
Else 
If I=3 Then 
Print 3 
Else 
Print "Nicht L, 2, 3. 


Rem --------—--- 
Print "Globale Variablen" 
G=1 

Gosub Global 

Print G 

Ren —— 

Print "Lokale Variablen" 
=] 

Gosub Local 

Print L !weiterhin 1! 

Rem ——— 

Print "Wertparameter" 

W=1 

Gosub Wertparameter(W) 
Print W !weiterhin 1! 

Rem ——. 

Print "Variablenparameter" 
vl 

Gosub Variablenparameter(xV) 
Printy [jetzt 2 

Rem ——. 


Rem --—--- —— — ---- -—- —- --- -----------— 

Procedure Global 
G=2 

Return 

Rem ——. 

Procedure Local 
Local L 
L=2 
Print L 

Return 

Rem ——— 

Procedure Wertparameter (Wert) 
Wert=Wert+]l 
Print Wert 

Return 

Rem -——. 

Procedure Variablenparameter(Ptr) 
*Ptr=V+1l lentspricht V = Wl! 
Erint V 

Return 


4.1. Quicksort-Beispiele 


Im Peeker, Heft 1/86 sind zwei umfangrei- 
che Aufsätze erschienen, die den Quick- 
sort-Algorithmus in allen Einzelheiten an- 
hand eines BASIC- und eines Assembler- 
Programms erläutern. Der dort abgedruck- 
te BASIC-Algorithmus war für die bisheri- 
gen BASIC-Dialekte gedacht, die mit Zei- 
lennummern arbeiten und weder über Re- 
peat-Until-Konstrukte noch über rekursive 
Prozeduren verfügen. Beispiel 7 (Quick- 
sort mit Labels) ist eine exakte Übertra- 
gung des im Peeker, 1/86, S. 13, abge- 
druckten Applesoft-Programms in die ana- 
loge GFABASIC-Version. Obwohl dieses 
GFABASIC-Programm bereits eindrucks- 
voll schnell ist (ca. 11s für 1000 Elemente 
gegenüber 275s in Applesoft), brauchen 
und sollten Sie unter GFABASIC niemals 
derartigen Spaghetti-Code erzeugen. 
Trotz Anwendung desselben Algorithmus 
ist nämlich das Beispiel 8 (Quicksort fast 
ohne Labels) bereits bedeutend übersicht- 
licher und auch etwas schneller (ca. 8.35 
für 1000 Elemente), was mit der Verwen- 
dung der Dec-, Inc- und Swap-Befehle 
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zusammenhängt. Es geht aber noch wei- 
ter: Eine spürbare algorithmische Verbes- 
serung stellt Beispiel 9 dar (Iteratives 
Quicksort), doch die Krönung wird in Abb. 
2 (Rekursives Quicksort, hier für Strings 
statt für Zahlen) gezeigt, denn GFABASIC 
läßt tatsächlich wie in Pascal rekursive 
Prozeduren zu. Die iterativen und rekursi- 
ven Programmversionen konnten deshalb 
auch unverändert einschlägigen Pascal- 
und Informatik-Lehrbüchern entnommen 
werden. 


Bsp. 7: Quicksort mit Labels 


Rem Quicksort für Reals: 11s 
SnZ=1B#d | 1888 Elemente 
Dim T(Sn%rl} ! T()-Real-Array 
For X%=1 To Sn 
T{X%Z)=Rnd«199p 
Next X% 
Print "Unsertiert” 
Gosub Anzeige 
Erint "startischrg() 
Ul=Timer 
Gosub Sort 
U2=-Timer 
Print "Ende";Chr$(7) 
Print "Sortiert! 
Gosub Anzeige 
Print (U2-UL)/269;'" Sekunden" 
End 
Procedure Anzeige 
kor X21| To ssne 
Print Dixs), 
Next X% 
Return 
Rem Quicksort-Unterroutine 
Procedure Sort 
T(Sn?#+1)=10099 
Stel 
S1%=-5n$ 
Dim Ss% (39) 
Sc#=P 
Labell: 
If Sf%>=S1% Then 
Goto Label’”7 
Endif 
SaZ-S1%+1l 
sıe st, 
SmZ=Int ( (S1%-Sf%) /2)+Sf% 
T=T(Sn%) 
I snz) Bist) 
T(Sf%)=T 
Label2: 
Ssıa=Ssift1 
If T(SiZ)<T Then 
Goto Label2 
Endif 
Label3: 
Sa%=-Sd%-1 
If T(Sd%)>T Then 
Goto Labelä 
Endif 
If Sd%<=Si% Then 
Goto Label4 
Endif 
Tt=T(Si%) 
T(Si%)=T (Sd%) 
Ilsd#)=Tt 
Goto Label2 
Label4: 
T(Sf%)=T(Sd%} 
T{Sd%#)=T 
If Sa%-Sf%<S1%-Sd% Then 
Goto Label5 
Endif 
Sss# (Scätl)=Sf% 
S5s% (Scht2 )=Sd%-1 
St%=-Sd%+H1 
Goto Label6 
Label5: 
SsZ(Sc#+1)=Sa#tl 
Ss% (Sc%+2)=51% 
s1%=Sa%-1 
Label6: 
ScH-Sc#t2 


Goto Labell 


Label?7: 

If Sc%>® Then 
S1I%=-55% (Sc#) 
Sf%=55% (Sc%-1) 
Sc#=-5c#-2 
Goto Labell 

Endif 

Return 


Bsp. 8: Quicksort fast ohne Labels 


Rem Quicksort für Reals: 8.35 
Rem Main nicht gelistet 
Rem Quicksort-Unterroutine 
Procedure Sort 
T(Sn%+1)=10806 
Str 
5s1%-5n12 
Dim Ss% (39) 
Sch=® 
Goto Schleifentest 
Schleifenanfang: 
Sa%=S1%+1 
Ssı%SstE 
SmZ=Int{ (S1%-Sf%) /2)+Sf%A 
7=-T(5n2%) 
Swap T{Sm%) ,T{Sf%) 
Repeat 
Repeat 
Inc Si% 
Until T(Si%}>=T 
Repeat 
Dec Sd% 
Until T(Sd%)<=T 
If Sd%>Si% Then 
Swap T(Si%),T(Sd%) 
Endif 
Until Sd#<=5i# 
T(Sf%)=T(Sd%) 
Tlsaz)eT 
If Sd%-Sf%<S1%-Sd% Then 
Ss% (Sc#+t1)=Sd%A+1 
Ss%(Sc#r2)=S1% 
S1%=Sd%-1 
Else 
Ss%(Scät1)=SfA 
SsZ(Sc#+2)=Sd%-1 
Sst=-ScHHl 
Endif 
Sch-Sckt2 
Schleifentest: 
If Sf%<S1l% Then 
Goto Schleifenanfang 
Endif 
If ScZ>® Then 
51#-33%4(5c0%#) 
sf%=5s%(Sc#-l} 
50%=Sch-R 
Goto Schleifentest 
Endif 
Return 


Bsp. 9: Iteratives Quicksort 


Rem Quicksort für Reals: 7.75 
Rem Main nicht gelistet 
Rem Quicksort-Unterroutine 
Procedure Sort 
Dim Ss%(15,1) 
Sck=l 
Ss%(Sc%,8)=1 
Ss%(Sc#, 1}-Sn# 
Repeat 
s1%=8s% (30%, 9) 
Sr#=3s%4(Sc%.1) 
Sck=-Sch-l 
Repeat 
Si%=51% 
549=5r% 
T=-T(Int(S1%Sr%)/2) 
Repeat 
While T(Si%)<T 
Inge 1% 
Wend 
While T<T(Sd%) 
Dec 5d% 
Wend 
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Rekursives Quicksort 


Rem Quicksort für Strings: 7,2s 


Sortnumber?=1Pd# 

Din Sortarray${Sortnumber$) 

For X%#=1 To Sortnunberf 
For Y%=1 To 19 





Sortarray$(X%)=Sortarray$(X3)+Chr${Randon(25)+65) 


Next YZ 
Next XZ 
Gosub Anzeige ("Unsortiert") 
Print "Start":Chr$(7) 
Uhrzeitli=Tinmer 
Gosub Sort{l,Sortnumberf) 
Print "Ende"; Chr$(7} 
Uhrzeit2=Tinmer 
Gosub Anzeige ("Sortiert") 


Print {Uhrzeit2-Uhrzeit1)/299;" Sekunden" 


End 

Procedure Anzeige{T$) 
Print T$ 
For X%=1 To Sortnumberf 

Print Sortarray$(X%)}, 

Next X% 

Return 

Rem Quicksort-Unterroutine 


Procedure Sort (SortieftZ,Sortrightf#) 


Sortincrement#=Sortleft$ 
Sortdecrement#=Sortright% 


Sorttemporary$=Sortarray$(Int(Sortleft2+4Sortright$)/2) 


Repeat 


"While Sortarray$(Sortincrement%)<Sorttenporary$ 


Ins Sortincrement# 
Wend 


While Sorttemporary$<Sortarray$(Sortdecrement?) 


Dec Sortdecrenent% 
Wend 


If Sortincrement$#<=Sortdecrement$ Then 
Swap Sortarray$(Sortincrement%) ,Sortarray$(Sortdecrement%) 


Inc Sortincrement% 
Dec Sortdecrementf 
Endif 


Until Sortincrement$>SortdecrementZ 
If Sortincrement#<Sortright$ Then 
Gosub Sort(Sortleft#,Sortdecrenment$) 


Endif 


If Sortincrement$#<Sortright# Then 
Gosub Sort(Sortincrement#,Sortright?%) 


Endif 
Return 


Abb. 2: Rekursives Quicksort für String-Arrays 


If Si%<=Sd% Then 
Swap T{Si%),T(Sd%) 
Lie 319 
Dec Sqd% 

Endif 

Until Si%>Sg% 

If Si9<28r% Then 
ins SCH 
SsA(Sc#,d)=Si% 
Saal 5u%.1)=8r2 

REndif 

Sr 

Until S14-Sr® 
Until Seh 
Return 


Die nachfolgende Übersicht berücksichtigt 
zwar bereits die neuen Befehle von GFA- 
BASIC Version 2.0, doch könnten sich 
noch kleine syntaktische Korrekturen er- 
geben, weil die Neuversion kurz vor Re- 
daktionsschluß eintrat und deshalb noch 
nicht alle Befehlserweiterungen im Detail 
erprobt werden konnten. Wir werden des- 
halb ggf. zu einem späteren Zeitpunkt eine 
ergänzte Übersicht veröffentlichen. 
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Allgemeines 


Länge des BASIC-Interpreters: 

ca. 60K 

Länge für Programm + Daten: 

max. 800K bei Atari 1040 ST 

Länge einer Programmzeile: 

max. 255 Zeichen 

Befehlsseparator: 

Nur Return-Zeichen (nicht „:“!) und 
somit nur 1 Befehl pro Programmzeile 
Länge eines Variablennamens: 

max. 255 Zeichen 


Variablenkennung 


Varname = Real-Variable 

Varname% = Integer-Variable 

Varname! = Boolesche Variable 
Varname$ = String-Variable 

*Varname = Real-Zeiger 

x Varname% = Integer-Zeiger 

*Varname! = Boolescher Zeiger 
*Varname$ = String-Zeiger 
(Real-Variablen haben keine Typkennung) 


ATARI 


Datentypen 


Fließkommazahl: 

Bereich: +/-9.9999999999E +/-154 
11stellige Mantisse, 3stelliger Exponent 
intern 6 Bytes 


Ganzzahl (%): 
Bereich: +/-2147483647 
intern 4 Bytes 


Wahrheitswert (!): 
Bereich; -1 = wahr, O = falsch 
intern 2 Bytes; bei Arrays 1 Bit 


Zeichenkette ($): 

Stringlänge: max. 32767 Zeichen 
Zeichenbereich: ASCI! 0-255 
intern 1 Byte pro Zeichen 


Zeiger (x vorangestellt): 
Ganzzahl 


Felder: 

Arrays, z.B. A(10,20), können mehr als 
65535 Feldelemente umfassen und zu- 
dem mehrdimensional sein. Boolesche 
Felder sind immer gepackt. 


Operatoren 


() (Klammern) 

T (Expoment) 

+ (Vorzeichen) 

- (Vorzeichen) 

* (Fließkomma-Multiplikation) 

/ (Fließkomma-Division) 

DIV (Ganzzahl-Division) 

MOD (Ganzzahl-Divisionsrest) 

+ (plus: Real oder Integer) 

- (minus: Real oder Integer) 

= (gleich: Zahl oder String) 

(„=* istneben „LET =" auch Wertzuwei- 
sung) 

< (kleiner: Zahl oder String) 

> (größer: Zahl oder String) 

<= (kleiner/gleich: Zahl oder String) 
>= (größer/gleich: Zahl oder String) 
<> (ungleich: Zahl oder String) 

== (etwa gleich: nur Zahl) 

+ (String-Verkettung) 

NOT (logische Negation) 

AND (logische Konjunktion) 

OR (logische Disjunktion) 

XOR (logische Kontravalenz) 

IMP (logische Implikation) 

EQV (logische Äquivalenz) 


Konstanten 


Pl = 3.1415926536 
TRUE = -1 
FALSE = OÖ 


BASEPAGE 
VDIBASE 
(vom Speicherausbau abhängig) 
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Systembefehle 


NEW 

CLEAR 

CLR var [,var...] 
RUN 

STOR 

END 

CONT 

QUIT 

SYSTEM 

REM (oder ’ oder |) 
EB 

LIST 

DEFLIST aexpr 
TRON 

TROFF 


Programmfluß 
FOR var = a [DOWNIJTO e [STEP s] 
NEXT var 


GOTO label (oder @ label) 


label: 


DO 

LOOP 

REPEAT 

UNTIL bedingung 
WHILE bedingung 
WEND 

IF bedingung [THEN] 


JEESE | 
ENDIF 


EXIT IF bedingung 
GOSUB namerl(expr [,exprj)] 
ON expr GOSUB name [,name...] 


PROCEDURE name [(var [,var...])] 
LOCAL var [,var...] 


RETURN 


DEFFN namel(varliste)] = expr 
FN namel[(expr [,expr]) 


Mathematik 
: SQR(aexpr) 
EXP(aexpr) 
ATN(aexpr) 
COS(aexpr) 
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SIN(aexpr) 
TAN(aexpr) 
LOG(aexpr) 
LOG10(aexpr) 
INT(aexpr) 
FlX(aexpr) 
FRAC(aexpr) 
TRUNC(aexpr) 
ABS(aexpr) 
SGN(aexpr) 
EVEN(aexpr) 
ODDf(aexpr) 
RANDOM(aexpr) 
RNDI[(aexpr)] 
ADD var,n 
SUB var,n 
MUL var,n 

DIV var,n 

DEC var 

INC var 
ARRAYFILL feld(),n 


Stringbefehle 


ASC(sexpr) 
LEN(sexpr) 
VAL(sexpr) 
VAL?(sexpr) 


LEFT$(svar[,n]) 
RIGHT$(svarl,n]) 
MID$(svar,af,n]) 
MID$(svar,a[,n])=sexpr 
INSTR(In,]a$,b$) 
INSTR(a$,b$[,n]) 
SPACE$(aexpr) 
STRING$(n,svar) 
STRING$(n,c) 
CHR$(aexpr) 
STR$(aexpr) 
UPPER$(svar) 
FRE(aexpr) 


HEX$(aexpr) 
OCT$(aexpr) 
BIN$(aexpr) 
&Hexpr > Hex 
&Oexpr > Oktal 
&Xexpr — Binär 


LSET svar=string 
RSET svar=string 
CVI(sexpr) 
CVL(sexpr) 
CVS(sexpr) 
CVF(sexpr) 
CVD(sexpr) 


MKI$(n) 

MKL${n) 
MKS$(n) 
MKF$(n) 
MKD$(n) 


Felder und Zeiger 


DIM var(indizes) [,var(indizes)....] 
DIM? (feld()) 

ERASE feld() 

TYPE (ptr) 

SWAP vari,var2 

MAX(expr [,expr...]) 

MIN(expr [,expr...]) 

ARRPTR(var) 

VARPTR(var) 

OPTION BASE 1 


Zuweisung 


[LET] var = expr 

DATA [const[,const!]...] 
READ var |[,var...] 
RESTORE label ... label: 


Eingabe 


INKEY$ 

INPUT ["text“;] var [,var...] 

LINE INPUT ["text“;] var [,var...] 
FORM INPUT n, svar 

FORM INPUT n AS svar 

INP(n) 

INP?(n) 


Ausgabe 


PRINT [AT(s,2)1 1] [expr L] GI T].--] 
PRINT USING “format“, liste [;] 
DEFNUM n 

WRITE [expr [,expr...] [;] 

POS(n) 

TAB(n) 

CRSCOL 

CRSLIN 


LLIST 

LPOS(n) 

LPRINT [expr [,]) EI T)] 

LPRINT USING “format“, liste [;] 
OUT aexpr,a 

OUT?(n) 

HARDCOPY 


Directory-Befehle 


DIR ["filespec“ [TO “file” ]] 
FILES ["filespec“ [TO “file“]] 
DIR$(n) 

MKDIR “directory” 

RMDIR “directory“ 

CHDIR "directory" 

CHDRIVE n 

DFREE(n) 


Allgemeine Dateibefehle 


LOAD “filename“ 

SAVE “filename" 

PSAVE “filename" 

LIST “filename" 

BLOAD “filename" [‚adresse] 
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BSAVE “filename“, adresse, len 
BGET [#Ji,adr,cnt 

BPUT [#]i,adr,cnt 

CHAIN “filename“ 

EXEO [(]flag,nam,cmd,env!)] 
KILL “filespec“ 
EXIST("filespec“) 

NAME "oldfile“ AS "“newfile“ 


Sequentielle und Random-Dateien 


OPEN "modus", [#]n, “filename“ [,len] 
FIELD [#]n,expr AS svar ... 

INPUT =n, var [,var...] 

LINE INPUT #n, var [,var...] 
INPUTS$(xT,#n]) 

PRINT #n [,expr [,] 51 ]...] 

PRINT #n, USING “format“, liste [;] 
WRITE #n [,expr [,expr...] [;] 
INP(#n) 

OUT #n,a 

GET #]nl;i] 

PUT [=#]n[,; i] 

SEEK [#]n,aexpr 

RELSEEK [#]n,aexpr 

LOC([#]n) 

LOF([#]n) 

EOF([#]n) 

CLOSE [[#]n] 


Grafikbefehle 


CLS [#i] 

COLOR c 

SETCOLOR I;r,g,b 
SETCOLOR i,n 
GRAPHMODE n 
DEFLINE [s], [b], [a], [e] 
LINE x0,y0,x1,y1 

DRAW [TO] x0,yO 
DRAW x0,y0 TO x1,y1 [TO x2,y2...] 
PLOT x,y 

POINT (x,y) 


BOX x0,y0,x1,y1 
PBOX x0,y0,x1,y1 
RBOX x0,y0,x1,y1 
PRBOX x0,y0,x1,y1 


CIRCLE x,y‚r [,phiO,phit] 
PCIRCLE x,y,r [,phi0,phi1] 


ELLIPSE x,y,rx,ry [,phi0,phi1] 
PELLIPSE x,y,rx,ry [,‚phi0,phi1] 


DEFMARK [c], [a], [g] 

POLYLINE n,x(),y() [OFFSET x0,yO] 
POLYFILL n,x0,y0 [OFFSET x0,y0] 
POLYMARK n,x(),y0) [OFFSET x0,yO] 


FILL x,y 

DEFFILL fc], [a], [b] 
DEFFILL [ce], a$ 
DEFTEXT [c], [s], [r], [9] 
TEXT x,y, [1] string 

GET x0,y0,x1,y1,a$ 
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9.9.4) ATARI 4 


PUT x0,y0,a$ [‚,modus] 
SGET svar 

SPUT svar 

SPRITE a$ [,x,y] 


Fensterbefehle 


MENU feid() 

MENU KILL 

MENU OFF 

MENU(n) 

MENU n;x 

ON MENU 

ON MENU GOSUB name 

ON MENU KEY GOSUB name 

ON MENU MESSAGE GOSUB name 
ON MENU IBOX a,x,y,b,h GOSUB name 
ON MENU OBOX a,x,y,b,h GOSUB name 
OPENW n [;x,y] 

OPENWO 

INFOW n, “info“ 

TITLEW n, “titel“ 

FULLWn 

CLEARWn 

CLOSEWn 

CLOSEWO 


ALERT a,mstring, b, bstring, var 
FILESELECT "filespec“, “filename“, sexpr 


Mausbefehle 


DEFMOUSE n 
DEFMOUSE a$ 

MOUSE x,y;k 

MOUSEX 

MOUSEY 

MOUSEK 

HIDEM 

SHOWM 

ON MENU BUTTON c,m,s GOSUB name 


Tonbefehle 


SOUND stim,laut,note,octa [,verz] 
SOUND stim, laut, period, [‚verz] 
WAVE stim,huell,form,dauer,verz 


Zeitbefehle 


DATE$ 

TIME$ 

SETTIME timestring,datestring 
TIMER 

PAUSE aexpr 


Maschinenbefehle 


PEEK(aexpr) 
DPEEK(aexpr) 
LPEEK(aexpr) 
POKE aexpr,n 
SPOKE aexpr,n 
DPOKE aexpr,n 
SDPOKE aexpr,n 
LPOKE aexpr,n 





SLPOKE aexpr;n 

C:var (parameterliste) 
CALL var 

CALL var (parameterliste) 
MONITOR In] 

HIMEM 

RESERVEn 

BMOVE scr,dst,cnt 


Unterbrechnung und Fehler 


ON BREAK 
ON BREAK CONT 
ON BREAK GOSUB name 


ERR 

ERROR n 

FATAL 

ON ERROR 

ON ERROR GOSUB name 
RESUME 

RESUME NEXT 

RESUME label 


Wir suchen noch 
Atari-Autoren 


Wer fundierte und gut 


gegliederte Fachaufsätze 


schreiben kann, melde 


sich bitte bei der Peeker- 


Redaktion. 
06221/489352 
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Mark-Williams- 





C-Compiler 





Ein professionelles Entwicklungssystem 


getestet von Dieter Geiß 


Beim Auspacken des Programmpakets, 
das uns von dem Importeur Alverdes Soft- 
line in Oberkirch zu Testzwecken zur Ver- 
fügung gestellt wurde, bekommt man zU- 
erst einen Schock. Zwei randvolle, dop- 
pelseitig formatierte Disketten mit 86 
Dateien sowie ein Handbuch von knapp 
650 Seiten erwecken den Eindruck, als ob 
es alles andere als einfach wäre, ein C- 
oder Assemblerprogramm für den Atari zu 
schreiben. Doch nach kurzer Eingewöh- 
nungszeit sieht alles nur noch halb so 
schlimm aus. 


1, Handbuch 


Da es sich um ein amerikanisches Produkt 
handelt, ist es durchweg in Englisch gehal- 
ten, was aber heutzutage keinen Program- 
mierer mehr abschrecken dürfte. Es um- 
faßt drei Teile, wobei sich der erste Teil 
(543 Seiten) nach der Einführung vor al- 
lem mit der Bedienung der verschiedenen 
Programmteile befaßt. Bei ihnen handelt 
es sich um eine Mikro-Shell, den C-Com- 
piler/Linker, den symbolischen Debugger 
und den Assembler. Ebenfalls im ersten 
Teil befindet sich hinter der Übersicht über 
die Fehlermeldungen ein alphabetisches 
Lexikon, das kaum Fragen offenläßt. Hier 
findet man schnell alles, wonach man beim 
Programmieren immer sucht. Dazu ge- 
hören: 

— alle C-Funktionen wie abort, abs, acos, 
.. unlink, write 

—- alle BIOS-, XBIOS- und GEMDOS- 
Funktionen 

— eine Kurzbeschreibung mit allen Optio- 
nen für die verschiedenen Programme 

- allgemeine C-Begriffe wie Register, 
Struct, Extern usw. 

— Atari-spezifische Begriffe wie Keyboard- 
Layout USW. 
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für den Atari ST 


Der zweite Teil (25 Seiten) behandelt ein 
spezielles Programm mit Namen „Make“. 
Mit dessen Hilfe ist es möglich, viel Zeit 
beim Schreiben komplexer Programme Zu 
sparen. Darauf soll hier jedoch nicht weiter 
eingegangen werden. Nur soviel sei ge- 
sagt, daß Programme und Module automa- 
tisch übersetzt werden, wenn sich z.B. das 
Datum bzw. die Uhrzeit einer Header- 
Datei geändert hat. Dann werden alle Mo- 
dule älteren Datums, die diese Header- 
Datei enthalten, durch das Make-Kom- 
mando neu übersetzt. 

Teil 3 (75 Seiten) schließlich beschreibt 
den Editor. Es handelt sich dabei um eine 
Version des zumindest in Amerika populä- 
ren EMACS-Editors namens Micro- 
EMACS, Auf ihn soll später eingegangen 
werden. 


2. Installation 


Bevor man effektiv mit dem System arbei- 
ten kann, sollte man sich die Originaldis- 
ketten kopieren. Dann folgt eine Prozedur, 
die sich eine halbe Stunde hinziehen kann 
— die Installation auf Festplatte bzw. auf 
Disketten. Dabei wird deutlich, daß das 
gesamte System ziemlich voluminös ist. 
Es wird im Handbuch ausdrücklich darauf 
hingewiesen, daß man entweder eine 
Festplatte oder zwei doppelseitige Lauf- 
werke haben muß, um überhaupt arbeiten 
zu können. Besitzer eines doppelseitigen 
Laufwerks werden nun den Kopf schütteln 
und denken: Kommt für mich nicht in Fra- 
ge! Dies ist jedoch zum Glück nicht zutref- 
fend, weil die Entwickler des Systems 
maßlos übertreiben, was die benötigte 
Hardware anbelangt. Bei meinem ersten 
Compilierungslauf überspielte ich einfach 
sämtliche Dateien, die wirklich wichtig 
sind, auf eine RAM-Disk, die ich mit 500K 
anlegte. Es lief dann alles einwandfrei! 
\Wenn man sich eine eigene Batch-Datei 


schreibt, welche die Programme optimal 
verteilt, kommt man bequem mit einer 
RAM-Disk und einem doppelseitigen Lauf- 
werk aus, 


3. Programme 
3.1. Mikro-Shell 


Zwei Umgebungen werden dem Program- 
mierer angeboten: Er kann seine Program- 
me unter der GEM-Oberfläche übersetzen 
lassen oder die mitgelieferte Mikro-Shell 
benutzen. Es handelt sich um eine UNIX- 
ähnliche Umgebung, die in dieser Version 
schon 37 Kommandos kennt. Die bekann- 
testen sind 

date (Datum und Uhrzeit einstellen), 

mv (Datei umbenennen), 

cp (Dateien kopieren), 

rm (Dateien löschen), 

Is (Directory-Listing), 

cat (Dateien anzeigen) usw. 

UNIX-Kenner werden ihre wahre Freude 
damit haben. Einige der komplexeren Be- 
fehle sind allerdings Programme, die erst 
geladen werden müssen. Dieser Umstand 
bringt es mit sich, daß man bei Verwen- 
dung von Diskettenlaufwerken durchaus 
einige Sekunden (8.4 s) warten muß, be- 
vor die lakonische Antwort „Ik: not found’ 
erscheint, die anzeigt, daß der Befehl nicht 
gefunden wurde. Dies tritt auch immer 
dann auf, wenn man sich vertippt (Ik statt 
Is). Arbeitet man dagegen mit einer RAM- 
Disk, so ist die Wartezeit erträglich (0.2 s). 
Der Vorteil einer DOS-Shell wurde schon 
in einem anderen Artikel (Peeker 10/86) 
erwähnt. Wichtig ist vor allem das automa- 
tische Abarbeiten von Kommando-Dateien 
(Batch-Dateien) und der schnelle Wechsel 
zwischen Editor, Compiler/Assembler so- 
wie Linker oder Library Utility. Arbeitet 
man unter GEM, so muß jedesmal der 
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Bildschirm neu aufgebaut werden, wenn 
man den Editor verläßt oder der Compiler 
eine Fehlermeldung bringt. 


3.2. Editor 


Er stellt mehr einen Programm- denn ei- 
nen Texteditor dar. Er arbeitet vollständig 
unter TOS, kommt also ohne Maus und 
Menüs aus. Man kann dennoch in maximal 
11 verschiedenen (Text-)Fenstern gleich- 
zeitig editieren — eine der hervorstechend- 
sten Eigenschaften. Des weiteren ist es 
möglich, eigene Tastatur-Makros zu defi- 
nieren. In einem speziellen Modus kann 
man sogar Kommandos an die umgeben- 
de Shell abgeben. So ist es ohne weiteres 
möglich, z.B. 10 verschiedene Module 
gleichzeitig zu editieren und jeweils das 
fertig editierte Modul übersetzen zu 
lassen. 

Der Clou ist allerdings das Vorhandensein 
des kompletten Source-Listings des Edi- 
tors auf einer der zwei System-Disketten. 
Er befindet sich in einer Text-Library, aus 
der die einzelnen Text-Dateien mit Hilfe 
der Archiv-Utility extrahiert werden 
Können, 

Die Scroll-Geschwindigkeit des Editors 
laßt allerdings sehr zu wünschen übrig. 
Das liegt daran, daß er so allgemein ge- 
schrieben wurde, daß er auch für andere 
Computer schnell anzupassen ist. Da al- 
terdings nicht jeder Computer Befehle 
kennt, um einen Teil des Textbildschirms 
zu scrollen, wurde das Problem gelöst, 
indem jeweils der gesamte Bildschirmin- 
halt neu gezeichnet wird, was einen enor- 
men Geschwindigkeitsverlust zur Folge 
hat. Man kann aber auch einen anderen 
Editor verwenden, wie z.B. den Metacom- 
co Screen Editor oder den ST Editor von 
Omikron Software. 


3.3. Compiler/Linker 


Der Compiler kennt den vollen Kernighan- 
Ritchie-C-Standard mit einigen Erweite- 
rungen. So erlaubt er unter anderem die 
Zuweisungen von Structs, die Übergabe 
von Structs als Wertparameter und ein 
Struct als Funktionswert zu definieren. Der 
Compiler selbst besteht aus maximal 5 (!) 
Pässen. Eine erstaunlich große Zahl, die 
daher rührt, daß er ursprünglich für andere 
Betriebssysteme entwickelt wurde, die 
früher nicht sehr viel RAM-Speicher zur 
Verfügung hatten, aber eine ausreichende 
Kapazität an externem Speicher. So belegt 
der Compiler nur einen kleinen Bereich 
des Hauptspeichers, erzeugt beim Compi- 
lieren aber eine Menge von Zwischenda- 
teien, die sich auf einem schnellen 
Datenträger befinden sollten, also einer 
Festplatte oder RAM-Disk. Die fünf Pässe 
sind: 
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49.40.49 ATARI Er 


—- cpp: Präprozessor 

— cc0: Parser 

— cc1: Code Generator 

—- cc2: Optimizer/Object Generator 
— cc3: Disassembler 


Der Präprozessor behandelt die entspre- 
chenden Anweisungen wie „#include“ 
oder „#ifdef“ usw. Es ist möglich, die 
erzeugte Zwischendatei resident zu hal- 
ten, was bei der Fehlersuche wertvolle 
Hilfe leisten kann. 

Ein Problem haben die Compilerbauer 
aber nicht bedacht. Offensichtlich haben 
sie noch nie ein GEM-Programm überset- 
zen lassen, das Resource-Dateien ver- 
wendet. Das Resource-Construction-Set 
erzeugt bekanntlich eine Header-Datei 
(Suffix „.H“), in welcher sich die Konstan- 
ten für die Resourcen befinden. Bindet 
man diese in sein Programm mittels eines 
„#include“-Befehls ein, so versagt der 
Compiler seinen Dienst. Grund: Das Re- 
source-Construction-Set hängt an die 
Header-Datei als letztes Zeichen ein Ctrl- 
Z (ASCIH 26) als EOF-Marke an, was 
durchaus nicht unüblich ist. Dieses Zei- 
chen allerdings verkraftet der Präprozes- 
sor nicht. Der Omikron-Editor hängt sogar 
bei allen Text-Dateien, die er erzeugt, ein 
Ctrl-Z an. Dieser Fehler des Präprozes- 
sors sollte unbedingt behoben werden, da 
man sonst gezwungen ist, mittels eines 
Disketteneditors das Ctrl-Z z.B. in ein 
Leerzeichen umzuwandeln. Keine sehr 
schöne Methode! 

Der Parser benutzt den rekursiven Ab- 
stieg, um einen Zwischencode zu erzeu- 
gen, der sowohl von der Sprache (C) als 
auch vom Mikroprozessor, für den der 
Code zu erzeugen Ist (68000), unabhän- 
gig ist. 

Der Code Generator verwandelt den er- 
zeugten Parser-Baum in Maschinencode 
um. Die Erzeugung selbst ist tabellenge- 
steuert, wobei es Einträge für jeden Ope- 
randen und jede Adressierungsart gibt. Er 
soll recht guten Code erzeugen (siehe 
unten). 

Der Peephole Optimizer eliminiert 
Sprünge zu Sprüngen, Sprünge zum 
nächsten Befehl usw., bis alle Adressen 
aufgelöst sind. Dabei wird der fertige Ob- 
jektcode erzeugt. 

Der Disassembler ist optional. Er erzeugt 
ein Assembler Source Listing, das dazu 
benutzt werden kann, den erzeugten 
Code zu untersuchen. 


Trotz der vielen Pässe ist die Bedienung 
des Compilers recht einfach. Dazu exi- 
stiert ein Compiler-Treiber, ein Programm 
namens „cco”, Es ruft nicht nur die einzel- 
nen Pässe des Compilers, sondern auch 
den Linker auf. Dabei kann eine Unzahl 
von Parametern (etwa 30) übergeben wer- 


den, die den Ablauf des Compilierens 
steuern, 

Der Linker übernimmt die erzeugte 
Codedatei sowie weitere Objektmodule, 
die schon übersetzt worden sind, Diese 
kann man auch in Bibliotheken einbinden. 
Als Standardbibliotheken werden eine C-, 
eine Mathematik- sowie die VDI- und 
AES-Bibliotheken mitgeliefert. Mit dem 
Programm „ar“ können sowohl Objekt- als 
auch Text-Bibliotheken (siehe Micro- 
EMACS) erzeugt werden. 


3.4. Debugger 


Mit Hilfe des Debuggers ist es möglich, 
seine Programme auf Maschinenebene zu 
testen. Die Unzahl von Kommandos, die 
der Debugger kennt, läßt seine Bedienung 
etwas schwierig und unübersichtlich er- 
scheinen. Man kann Breakpoints setzen, 
Befehle in Einzelschritten abarbeiten und 
mit Symbolen adressieren. Die Symbole 
befinden sich jeweils noch in der Code- 
Datei; sie können aber später auch ent- 
fernt werden. Zu den weiteren Merkmalen 
des Debuggers gehören Stack Backtra- 
cing und die Möglichkeit, alle auftretenden 
Daten fast beliebig zu formatieren, also 
z.B. als Fließkommazahl zu interpretieren. 


3.5. Assembler 


Obwohl C eine Sprache ist, bei deren Be- 
nutzung man fast immer auf Assembler 
verzichten kann, kommt es manchmal vor, 
daB man kleine Assemblerroutinen schrei- 
ben muß. Diese können mit anderen Ob- 
jekt-Modulen gelinkt werden. Sowohl der 
Compiler als auch der Assembler erzeu- 
gen das gleiche Objekt-Format. Es gibt 
zwar keine bedingte Assemblierung und 
keine Makros, aber z.B. lokale Labels. 


4. Geschwindigkeitstests 


Die beiden wohl wichtigsten Kriterien bei 
der Anschaffung eines Compilers sind die 
Compilier-, Link- und Laufzeiten der er- 
zeugten Programme. Es gibt Compiler, die 
bis zu zehnmal schneller sind als andere 
oder die einen Code erzeugen, der drei- 
mal so schnell ist. Anhand von vier ver- 
schiedenen Compilern sollen hier die Zei- 
ten zum Übersetzen und Linken sowie die 
Laufzeit der Programme unter die Lupe 
genommen werden. Bei den Compilern 
handelt es sich um den Alcyon-C-Compi- 
ler, der aus dem Entwicklungspaket von 
Atari bekannt sein dürfte, den Megamax- 
C-Compiler, der von Application Systems 
in Heidelberg vertrieben wird, den Lattice- 
C-Compiler von Metacomco und natürlich 
den Mark-Williams-C-Compiler. Der Preis 
ist der Vollständigkeit halber mit angege- 
ben. Dabei handelt es sich jeweils um den 
Preis für das ganze Entwicklungssystem. 


65 


Zwei verschiedene Programme wurden 
gewählt, um die Systeme zu testen. Das 
erste Programm (siehe Tabelle 1) ist ein 
Kartenspiel-Simulationsprogramm, bei 
dem vor allem viel gerechnet wird. Es er- 
rechnet für das Spiel „Blackjack“, das ein- 
zige Spiel, bei dem der Spieler der Spiel- 
bank überlegen sein kann, die optimale 
Stragegie zum Ziehen der Karten. Die 
Laufzeiten beziehen sich dabei auf 1000 
gespielte Partien. Das Programm hat eine 
Länge von 730 Zeilen, wobei 189 Zeilen 
aus inkludierten Header-Dateien stam- 
men. Die Laufzeiten sind nicht so typisch 
für die Compiler, da die Rechenoperatio- 
nen teilweise aus den Bibliotheken 
stammen. 

Bei dem zweiten Programm (siehe Tabel- 
le 2) handelt es sich um den Dhrystone- 
Benchmark, also einen Benchmark-Test, 
der praktisch alle verschiedenen C-Kon- 
strukte berücksichtigt (Zeitangaben in Se- 
kunden). 

Das Fehlen des Benchmarks für den Al- 
cyon-C-Compiler ist dadurch zu erklären, 
daß der Test mit einem Bombeninferno 
endete. Wie mittlerweile bekannt sein 
dürfte, hat der Compiler des Entwicklungs- 
pakets etliche Macken, die schon vielen 
Programmierern Kopfzerbrechen gemacht 
haben. 

Die Zahlen der Tests sprechen wohl eine 
deutliche Sprache. Der Megamax ist allen 
anderen Compilern um eine oder mehrere 
Nasenlängen voraus. Hätte er nicht eine 
böse Einschränkung und mindestens vier 
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gravierende Fehler, so könnte man In die- 
ser Hinsicht alle anderen Compiler ver- 
gessen. 


5. Fazit 


Der Mark Williams ist wohl der zweitbeste 
zur Zeit auf dem Markt befindliche Compi- 
ler. Das Handbuch, bei dem vor allem das 
Lexikon hervorsticht, ist recht brauchbar. 
Allerdings entbehrt es der Dokumentation 
der GEM-Bibliotheken, die man erst in an- 
deren Büchern wie z.B. „Software-Ent- 
wicklung auf dem Atari ST“ (Hüthig-Ver- 
lag) nachlesen muß. 


Ein Leckerbissen dürfte das Paket für 
UNIX-Fans sein. Die ganze Komplexität 
des UNIX-Betriebssystems mit seinen vie- 


len Funktionen und Optionen findet sich 
teilweise bei Mark Williams. Die Bibliothe- 
ken sind ebenfalls UNIX-kompatibel, wo- 
mit es ein leichtes sein dürfte, auf dem 
Atari Software für UNIX-Maschinen zu enti- 
wickeln. Die Fehlerlosigkeit, die vor allem 
bei Compilern sehr wichtig ist, zeigt sich 
erst in sehr langen Programmen. Dabei 
schneiden vor allem der Alcyon-, aber 
auch der Megamax-Compiler schlecht ab. 
Die professionelle Programmierung des 
Mark Williams zeigt, daß man auch Compi- 
ler schreiben kann, die nicht bei einfach- 
sten C-Konstrukten falschen Code erzeu- 
gen, der Programmierern schlaflose Näch- 
te bereitet. Für die Erzeugung korrekten 
Codes bezahlt man dann gerne mit der 
längeren Wartezeit beim Übersetzen und 
Linken. 


Tabelle l: Übersetzungs- und Linkzeiten mit "Blackjack" (759 Zeilen) 

















Name | Preis | Comp. | Link. | Gesamt | Länge | Laufzeit | 
Megamax | 595.- | 8s| 13s| 21s | 12949 | 15.39 s | 
Alcyon | 969.- | 68s | 46 s | 114 s | 18596 | 12.195 | 
Mark Williams | 606.- | 33s| 665 99 s | 17238 | 14,36 s | 
Lattice | 348.- | 64 s | 48 s | 104 s | 33694 | 36,15 s | 


Die Einheit der Länge ist Bytes, 


Tabelle 2: Ausführungszeiten mit Dhrystone-Benchmark 


Nams | Sekunden | Anzahl Benchmarks | 
m —, 
Megamax | Ad | 1121 | 
Alcyon | — | — | 
Mark Williams 55 | 896 | 
Lattice 473 | 684 | 





Ein superschnelles Disketten-Kopierprogramm 
von Arne Schäpers, 1985, Programmadiskette mit Anleitung, DM 48,- 


Mit SUPERQUICK ist es möglich, Disketten jeden Formats (DOS 3.3, ProDOS, UCSD-Pascal und CP/M) in 
einer unglaublich kurzen Zeit von nur 29 Sekunden (mit Formatierung) zu kopieren. Bei entsprechender 
Speichererweiterung kann der gesamte Disketteninhalt eingelesen werden, um mehrere Kopien anzufertigen. 
Die Zeit für eine Einzelkopie reduziert sich dann auf sage und schreibe 19 Sekunden. 

SUPERQUICK erkennt die 64K-Karte (in Siot 3) des Apple Ile und IIc sowie eine 16K-Language-Oard in Slot O 
und bezieht diese selbständig als Datenpuffer ein. Darüber hinaus werden die IBS-Karten AP17 in den 
Ausbaustufen 64K bis 256K automatisch unterstützt und gegebenenfalls als weitere Puffer eingesetzt. 


Jetzt mit Spezialprogramm für 160-Spur-Erphi-Laufwerke! 


Hüthig Software Service - Postfach 10 28 69 - 6900 Heidelberg 1 
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Drucker-Produkte 


Drucker-Zwischenspeicher 


Mit der CIRTECH Puffer-Box der 
Fa. Semjan Computer Systeme 
kann an jeden Drucker ein zusätzli- 
cher  Drucker-Zwischenspeicher 
mit 256K oder 512K RAM ange- 
schlossen werden. Die „Cache- 
box”, die bei fast allen Computern 
eingesetzt werden kann, speichert 
die Daten, die vom Computer an 
den Drucker geschickt werden, 
und gibt sie schrittweise an den 
Drucker weiter. Diese Speicher- 
technik ermöglicht es, bis zu 200 
bzw. 400 DIN-A4-Seiten automa- 
tisch zwischenzuspeichern und an 
den Drucker weiterzugeben. Die 
Puffer-Box verarbeitet bis zu 
20.000 Zeichen/s und ermöglicht 
bis zu 65.000 Kopien der Original- 
daten. Die Cachebox ist zu allen 
gängigen Computern (Apple, Atari, 
IBM, HP, Tandy etc.) und fast allen 
Druckern (Epson, NEC, Brother, 
ITOH etc.) kompatibel. Sie erlaubt 
ein ungehindertes Arbeiten am 
Computer ohne langwieriges War- 
ten auf das Ende eines Druckvor- 
ganges. Die wertvolle Rechenzeit 
des Computers wird besser ge- 
nützt, die Rechnerkapazität kann 
unabhängig von der geringeren 
Druckerkapazität ausgeschöpft 
werden. 

Die Puffer-Box wird mit 256 oder 
512K-RAM in drei Ausführungen 
geliefert: seriell, parallel, seriell 
und paraliel. 

Die Preise incl. Mwst. und Hand- 
buch betragen für die serielle oder 
parallele Ausführung ca. DM 807, — 
(256K) bzw. DM 1215,- (512K), für 
die seriell/parallele Ausführung ca. 
DM 989,- (256K) bzw. DM 1397, — 
(Sılzs): 

Bezugsquelle: Semjan Computer 
Systeme, Frankfurt 


Epson-Nachrüstsatz 


Für die weit verbreiteten Epson- 
Matrixdrucker MX 80/100, RX 80/ 
100, FX 80/100 und JX 80 bietet 
die Fa. Mayer Computersysteme 
einen Nachrüstsatz an, der diese 
Drucker NLQ-fähig (NLQ = Near 
Letter Quality) und leichter bedien- 
bar macht. Rund 160 verschiedene 
Schriftarten können über 3 Tasten 
direkt am Drucker angesteuert 
werden. Einzelblatteinzug ist als 
Zusatzausrüstung lieferbar. Inter- 
essant ist diese Lösung für alle 
Druckerbesitzer, die sich keinen 
neuen Drucker leisten können 
oder wollen, aber ein verbessertes 
Schriftbiid wünschen. 

Der Umbausatz kostet ca. DM 
249, -, die Umrüstung incl. Ver- 
sandkosten ca. DM 295,—. 
Bezugsquelle: Friedhelm Mayer 
Computersysteme, Berlin 


Traktor für Okidata-Drucker 


Okidata bietet als Option für die 
OKI-Drucker der Serien Microline 
192, 193, 292, 293 und 294 einen 
neuartigen Traktor-Aufsatz an, der 
speziell für diese Geräte entwickelt 
wurde. Der Traktor ermöglicht ei- 
nen äußerst exakten Zeilenvor- 
schub in beide Richtungen. Er ist 
v.a. für Anwendungen konzipiert, 
bei denen es auf präzise Drucker- 
gebnisse ankommt, z.B. bei Grafik 
oder Plotter-Simulationen, Neu ist 
die Einspann-Vorrichtung, die es 
ermöglicht, das Papier von der 
Frontseite des Geräts in beide 
Führungswalzen einzuspannen. 
Der Preis beträgt für die schmale 
Version ca. DM 489,-, für die brei- 
te Version ca. DM 614,-. 
Bezugsquelle: Okidata 
Düsseldorf 
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Comtest-Schnittstellentester 


Der Comtest-Schnittstellentester, 
der von der schwedischen Hard- 
warefirma Jet-Computer herge- 
stellt wird, ist ein nur handtellergro- 
Bes Gerät zum Testen der V24/ 
RS232C-Schnittsielle und Strom- 
schleifen. Das Gerät ist unentbehr- 
lich für alle, die Datenkommunika- 
tionsgeräte wie Modems, Termi- 
nals, Drucker etc. installieren, re- 
parieren und benutzen. Es eignet 
sich zur Prüfung der Signalpegel!, 
zur Kreuzkopplung und Verbin- 
dung zweier DTEs, zum Gerätetest 
durch digitalen Loopback und zum 
Aufspüren von Differenzspannun- 
gen. Alle 25 Leitungen werden lau- 
fend überwacht und können jeder- 
zeit unterbrochen, überbrückt und 


Apple-Produkte 


Macintosh und VAX-Super-Mini 


Mit dem Datenübertragungs-Pro- 
gramm MaxVax von der MKV 
GmbH, Mannheim, können EDV- 
Laien jetzt auch die Rechnerlei- 
stung eines VAX-Super-Minis nut- 
zen. MacVax ermöglicht die 
Datenübertragung zwischen den 
bedienerfreundlichen Macintosh 
Personal Computern und VAX/ 
VMS-Systemen von Digital Equip- 
ment. Über das AppleTalk-Netz- 
werk wird der Macintosh an einen 
VAX-Rechner angeschlossen. 
Durch Übertragungs- und Konver- 
tierungsmöglichkeiten können 
Daten aus dem Super-Mini an den 
Macintosh weitergegeben werden 
und stehen somit auch EDV-Laien 
jederzeit zur Information und zur 
Bearbeitung zur Verfügung. 


getauscht werden. 52 LEDs zeigen 
den Pegel der 23 Signalleitungen 
an. Das Gerät ermöglicht 2-Stufen- 
Differenzspannungstest zwischen 
DTE und DEE und testet bidirektio- 
nal Stromschleifen in 4 Stufen (10, 
20, 40, 60mA); da das Gerät aus 
der Schnittstelle mit Strom ver- 
sorgt wird, ist keine Batterie nötig. 
Der Tester besitzt Direktanschluß 
an DTE/DEE und Kabel; Einschlei- 
fen in Gentronics-Druckerkabel für 
IBM-PC ist möglich. Comtest wird 
mit 8 Steckkabeln, Schutztasche 
und deutscher Gebrauchsanlei- 
tung geliefert. 

Der Preis beträgt ca. DM 388,-. 
Bezugsquelle: Ing.Büro Sauer, Aa- 
chen 


Der VAX-Rechner bietet für den 
Macintosh folgende ergänzende 
Funktionen: Mailbox, Bibliothek, 
Archivierung, Print-Server. Um die 
Datenübertragung zu ermöglichen, 
verwendet der Macintosh Personal 
Computer die Terminalemulation 
und der VAX-Rechner das Daten- 
übertragungsprogramm MacVax. 
MacVax ist genau auf MacTerminal 
angestimmt. Es erlaubt damit die 
Datenübertragung im Macintosh- 
Format und bietet Konvertierungs- 
möglichkeiten zwischen dem Mac- 
intosh und dem VMS-Format. Alle 
wichtigen Funktionen einschließ- 
lich Hilfestellungen sind über ein- 
fache Kommandos zu bedienen, 
Bezugsquelle: MKV GmbH, Mann- 
heim 
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Festplatte für den Apple GS 


Am 15.9.86 stellte die Firma Apple 
weltweit den Apple GS, ihren neu- 
en 16-Bit-Rechner, vor. Der Com- 
puter mit dem 656816-Prozessor 
verfügt über 8 Steckplätze und 
wurde als offener Rechner konzi- 
piert. Damit können auch im Ap- 
ple-II-Nachfolgemodell  Erweite- 
rungssteckkarten zum Einsatz 
kommen. 

Die Fa. Frank & Britting entwickelt 
v.a. Festplatten-Controller und ist 
auf diesem Gebiet zum Harddisk- 
Controller-Spezialist in Europa ge- 
worden. Schon für den Apple 1V/ 
lle/lI+ bietet sie die Festplatten- 
Speichererweiterung MEGA-CO- 
RE und die mobile Datenbox MDB, 
jeweils mit 10 und 20 MByte Kapa- 
zität, an. Auch für den neuen Apple 
GS hat Frank & Britting bereits ei- 
ne  Festplatten-Speichererweite- 
rung entwickelt, die MEGA-CORE 
GS. Beim Apple GS wird dazu das 
Original-Apple-Netzteil durch ein 
Einbau-Modul ersetzt, das aus ei- 
nem verstärkten Netzteil mit Lüfter, 
Controller und einer 10- oder 20- 
MByte-Festplatte besteht. Die ME- 
GA-CORE GS wird komplett mit 
Handbuch und der Software zur 
Anpassung der Betriebssysteme 
DOS, CP/M, ProDOS und Pascal 
geliefert. 

Bezugsquelle: Frank & Britting, 
Forst 

(Ggf. können Peeker-Leser auch 
diese Festplatte — wie schon die 
MDB 10 und 20 für den Apple Ile/ 
II+ -— zum Sonderpreis über den 
Hüthig-Software-Service be- 
ziehen.) 


Statistik für den Apple 


Die Statistik-Programme „APP- 
STAT" und „STATFAST" der 
amerikanischen Fa. STATSOFT er- 
möglichen es Apple-I!- und Macin- 
tosh-Besitzern, auf ihren Compu- 
tern einfache und höhere statisti- 
sche Methoden anzuwenden. Das 
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Spektrum der Programme reicht 
von deskriptiven Statistiken wie 
Mittelwert, Standardabweichung, 
T-Test, Korrelationen usw. bis hin 
zur multiplen Regressionsanalyse 
und mehrfaktoriellen Varianzanaly- 
se. Eine analyseunterstützende 
grafische Darstellung von Daten in 
Form von Histogrammen und 
Streuungsdiagrammen Ist eben- 
falls möglich. Neben der direkten 
Dateneingabe über den 
programmeigenen Editor ist die 
Übernahme von Daten anderer 
Programme realisierbar. Das Pro- 
gramm ist durch Menüsteuerung 
sehr benutzerfreundlich. Es kostet 
für den Apple II ca. DM 269,-, für 
den Maeintosh ca. DM 319,-. 
Bezugsquelle: Loll + Nielsen, 
Hamburg 


Super-Grafik-Karte APGRADE 


Für den Apple II+, Ile und Kompa- 
tiple hat die Fa. Computer Informa- 
tions Systeme die Grafik-Karte AP- 
GRADE mit eigenem Grafikpro- 
zessor für hochauflösende Grafik 
(512 » 512 Punkte) entwickelt, die 
in jedem Slot (1-7) des Apple läuft. 
Die Karte wird in 4 Versionen mit 
verschiedenen Arbeitsspeichern 
geliefert: Die Grafikgrundplatinen 
APGRADE MB mit 64K Arbeits- 
speicher (2/4 autonome Grafiksei- 
ten im Schwarz-Weiß-Modus) und 
APGRADE MBX mit 256K (8/16 
Seiten S/W) und die beiden Farb- 
erweiterungsplatinen APGRADE 
CO mit 128K (6/12 Seiten S/W 
bzw. 2/4 Seiten in Farbe) und AP- 
GRADE COX mit 512K Arbeits- 
speicher (24/48 Seiten S/W bzw. 
8/16 autonome Grafikseiten in Far- 
be). Programmgesteuert sind zwei 
Auflösungen auswählbar: Im „in- 
terlaced scan" (Zeilensprungver- 
fahren) 512 * 512 Punkte, im 
„hon-interlanced scan" 256 * 
512 Punkte. Die Schreib- und An- 
zeigeseiten sind unabhängig von- 
einander anwählbar, Schrift kann in 
verschiedener Größe und Ausrich- 


tung dargestellt werden. Video- 
und Synchronisationssignale sind 
getrennt vorhanden (normal und 
invertiert). Durch Video-Soft- 
switches kann auf Ein- oder Zwei- 
Monitorbetrieb umgeschaltet wer- 
den; der Anschluß eines Lichtgrif- 
fels ist möglich. Durch eine spe- 
zielle Farbmisch-Logik bietet AP- 
GRADE 8 Grundfarben bzw. Grau- 
stufen und 36 Mischfarben bzw. 
Graustufen an. 


Die Anwendungsbereiche der Pla- 
tine reichen von dem Erstellen von 
Kurven, Schaubildern, Diagram- 
men und Masken über Kontroll- 
und Meßwertanzeigen bei Steuer- 
und Regelungsprozessen bis zur 
Darstellung dreidimensionaler Kör- 
per, digitalisierter Bilder und CAD. 
Die getrennten Grafikseiten und 
die hohe Zeichengeschwindigkeit 
von 900.000 Punkte/s erlauben 
Echtzeitbewegungen. 

Wird keine Grafik benötigt, kann 
die Karte als schnelle RAM-Disk 
mit 64K bzw. 256K (MB bzw. MBX) 
oder 192K bzw. 768K (CO bzw. 
COX) verwendet werden, 

Die Installation Ist problemlos: Die 
Karte wird einfach in einen Steck- 
platz (1-7) im Computer gesteckt. 
Monitore ab 15 MHz sind ver- 
wendbar. 

Für Anwender und Programmierer 
wird eine ausführliche Dokumenta- 
tion mitgeliefert: Anwenderhand- 
buch, Programmierhandbuch mit 
Programmlistings und Program- 
mierbeispielen, v.a. in Assembler, 
und ein Servicehandbuch mit 
Hardware-Informationen. Ebenfalls 
im Lieferumfang enthalten sind 
Demo- und Hilfsprogramme, RAM- 
Disk-Treiberprogramme, Patches 
zur Applesoft-Grafikerweiterung 
als Basis-Grafik-Betriebssystem, 
nachladbare Zusatzmodule für di- 
verse Highlevel-Grafikanweisun- 
gen, Dump-Modul für verschiede- 
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ne Drucker und einfache Editoren 
zum Entwurf von Symbolen und 
Diagrammen. 

Die Karten arbeiten mit verschie- 
denen Peripheriegeräten wie 
Drucker, Plotter, Grafik-Tableaus, 
Maus, Joystick zusammen. Ein 
umfangreiches Angebot an Zu- 
satz-Software wird angeboten: 
Pascal-Unterstützung, Plotteran- 
passung, Grafikeditor usw. 

Preise incl. Mwst.: APGRADE MB 
(64K) ca. DM 598,-, MBX (256K) 
ca. DM 910,-; 
Farberweiterungsplatine co 
(128K) ca. DM 885,-, COX (512K) 
ca, DM 1365 —. 

Bezugsquelle: Computer Informa- 
tions Systeme, Frankfurt 


Apple-Schnittstelle fur Citizen- 
Drucker 


Citizen Europe bietet jetzt eine 7- 
Bit-Centronics-Schnittstelle an, mit 
der alle Citizen-Matrixdrucker und 
der Typenraddrucker Premiere 35 
an den Apple Il angeschlossen 
werden können, Nach Hersteller- 
angaben wurde das Interface aus- 
führlich mit dem Apple-Betriebssy- 
stem DOS 3,3 getestet. Es ist bei 
allen europäischen Citizen-Händ- 
lern zum Preis von ca. DM 260,- 
erhältlich. 


Bezugsquelle: Citizen-Händler 
oder Burson-Marteller GmbH, 
Frankfurt 


Appie-Free-Software 


Ab 1.10.86 werden alle Program- 
me für den Apple lle/c/+ aus dem 
Haus der Buchhaltung zur Free- 
Software, d.h. die Programme sind 
frei kopierbar. Insgesamt führt das 
HDB etwa 120 Programmversio- 
nen für den Apple Il, die jetzt als 
Free-Software gelten. Außerdem 
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beinhalten die Preise für alle Soft- 
wareprodukte ab 1.10.86 bereits 
die Mehrwertsteuer, was gegen- 
über der bisherigen Berechnung 
eine Preissenkung um 14% be- 
deutet. Die Programmdisketten ko- 
sten jeweils DM 39,50. 
Bezugsquelle: Haus der Buchhal- 
tung, Duisburg 


Firmenmitteilungen 


Neuer Geschäftsführer bei 


Apple 


Die Firma Apple Computer berich- 
tet, daß mit Wirkung ab 1.10.86 
Gerhard Jörg zum alleinvertre- 
tungsberechtigen Geschäftsführer 
der Apple Computer GmbH, Mün- 
chen berufen wurde. Der 41jährige 
ist gleichzeitig Mitglied des Mana- 
gement-Teams Apple Computer 
Europe mit Sitz in Paris. Zuvor war 
Jörg beim EDV-Hersteller Bur- 
roughs GmbH in Frankfurt Mitglied 
der Geschäftsführung im Bereich 
Marketing und Vertrieb. „Mit der 
Berufung von Gerhard Jörg wollen 
wir die Bedeutung des deutschen 
Computermarktes für Apple unter- 
streichen”, erklärte Roger Ker- 
misch, General Manager Apple 
Europe. „In den kommenden drei 
Jahren wird Apple die Position ins- 
besondere Im kommerziellen Be- 
reich weiter ausbauen. Deshalb hat 
sich Apple für einen Manager aus 
der Kommunikationsbranche ent- 
schieden“, bekräftigte Kermisch 
das Apple-Engagement in 
Deutschland. Jörg bringt aus den 
letzten 12 Jahren als Geschäfts- 
führer in der Branche umfangrei- 
ches Know-how im Aufbau und der 
Reorganisation von Marketing- und 
Vertriebsgesellschaften mit, insbe- 
sondere auch im Bereich des 
Computerfachhandels. 

(Anm. d. Red.: Von dem neuen 
Apple-Geschäftsführer sollte man 
Flexibilität erwarten können, hat er 
doch allein in den letzten 4 Jahren 
gleich viermal seine Stellung ge- 
wechselt, 1983 mußte die HPR 
Computer GmbH, eine Tochter 
des Schweizer Büromaschinen- 
herstellers Hermes Precisa, unter 
seiner Führung Konkurs anmel- 
den. Jörg wechselte als Ge- 
schäftsführer zum Stuttgarter BÜ- 
romaschinenhersteller Häussler, 
den er schon nach zwei Jahren 
aufgrund von Schwierigkeiten mit 
dem Unternehmensleiter wieder 
verließ. Beim Eschborner EDV- 
Hersteller Burroughs Deutschland 
GmbH war er in den letzten 10 
Monaten für Marketing und Ver- 
trieb zuständig. Es bleibt abzuwar- 
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ten, ob Jörg der Mann Ist, der in 
der Apple-Geschäftsführung end- 
lich die nötige Kontinuität gewähr- 
leistet. Als Branchenkenner und 
Fachmann für Marketing und Ver- 
trieb könnte er bei Apple sicher für 
einige Verbesserungen sorgen.) 


Saturn-128K-RANM-Karte und er- 
phi-Controller AFDC 


Nach eingehenden Untersuchun- 
gen der Saturn-RAM-Disk-Soft- 
ware hat die Fa. erphi electronic 
festgestellt, daß die RAM-Disk un- 
ter CP/M 2.20 mit der Firmware 
des erphi-Controllers AFDC kom- 
patibel ist, wenn bei der Installation 
richtig vorgegangen wird, Wichtig 
ist, daß bei der Anpassung der 
Programme INIT.COM bzw. INIT- 
2.COM durch das MBASIC-Pro- 
gramm PSEUDO.BAS bereits alle 
angeschlossenen Drives mit der 
Kapazität installiert sein müssen, 
wie sie später zusammen mit der 
Saturn-Karte betrieben werden 
sollen. Es werden also zunächst 
alle Saturn-Programme auf die 
künftige Boot-Diskette (z.B. 2x 80 
Tracks) kopiert. Es sind dies die 
Programme PSEUDO.BAS, PSEU- 
DO.COM,  PARAM.DAT, INIT. 
COM, INIT2.COM. Anschließend 
wird diese Diskette im Autopatch 
gebootet. Dann müssen alle vor- 
handenen Drives einmal ange- 
sprochen werden (z.B. B:, C: etc.). 
Man kann sich jetzt mit STAT DSK: 
noch einmal überzeugen, daß alle 
Drives im richtigen Format „einge- 
hängt” sind. Erst jetzt wird MBA- 
SIC aufgerufen und RUN „PSEU- 
DEO" eingegeben. Im weiteren 
kann so vorgegangen werden, wie 
es in der Saturn-Beschreibung an- 
gegeben ist, um INIT und INIT2 
anzupassen. Die so erstellten 
RAM-Disk-Treiber arbeiten mit der 
AFDCG einwandfrei zusammen. Auf 
dem Markt befindet sich auch eine 
von R. Hergert an CP/M 2.23 an- 
gepaßte Version der Saturn-Soft- 
ware. Diese ist mit der AFDC-Firm- 
ware nicht verträglich, weil der 
RAM-Disk-Treiber zu lang ist und 
die Disk-Parametertabellen des 
AFDC teilweise überschreibt (s. 
AFDC-Handbuch). 


Frei-Programme von EcoSoft 


EcoSoft Economy Software AG, ei- 
ne neugegründete Schwesterge- 
sellschaft von Intus Software über- 
nahm am 1.8.86 von Intus den Ver- 
trieb von Frei-Programmen und 
Shareware. In Vertretung verschie- 
dener amerikanischer Shareware- 
Lieferanten und Autoren über- 
nimmt EcoSoft auch die Registrie- 
rung von Anwendern und liefert ih- 





nen Handbücher und Neufassun- 
gen der Programme. EcoSoft bie- 
tet derzeit über 20.000 Programme 
auf über 1.200 Disketten für Apple 
II, Macintosh, Atari ST, IBM und 
Kompatible, C64, C128 und Ami- 
ga. Programmübersichten können 
von EcoSoft kostenlos angefordert 
werden. 

Bezugsquelle: EcoSoft, Waldshut- 
Tiengen 


Neues von der Basis-User- 


Group 


Das Rundschreiben Nr. 3 der Ba- 
sis-User-Group vom September 
1986 befaßt sich schwerpunktmä- 
Big mit Fragen zur Wordstar-An- 
wendung unter Basis-Computern. 
Als Fortsetzung zum ersten Teil, 
der im Rundschreiben Nr. 1 veröf- 
fentlicht wurde, werden die Pat- 
ches und Labeladressen von 
Wordstar 3.0 beschrieben. Der 
zweite Wordstar-Artikel befaßt sich 
mit dem Finden und Patchen der 
User-Patch-Area von Wordstar, 


PROdukTe 4 


Version 3.0. 

Andere Themengebiete werden 
mit folgenden Artikeln behandelt: 
— Fehlerbereinigung von CGP/M 3 
Version C.A1 

— CP/M-3.0-Patches 

— Turbo-Pascal-2.0-Patches. 

Für Interessenten an den Nach- 
richten der Basis-User-Group 
nochmal die Kontaktadresse der 
BUG: 

Rolf Gachnang 

Neue Jonasstr. 81 

CH- 8640 Rapperswil 


Bühler-Elektronik-Filiale 


Die Firma Bühler-Elektronik eröff- 
net am 10.11.86 in Mannheim, M7, 
Y9a-10 einen weiteren Fillalbetrieb 
neben ihrer Filiale in der Karlsruher 
Waldstraße. Auf ca. 250qm Ver- 
kaufsfläche werden in Mannheim 
elektronische Bauteile, Meßgeräte 
und Werkzeuge, Computer und 
Computer-Peripherie sowie HIFI- 
Geräte, Lautsprecher und Alarm- 
anlagen angeboten, 








von Arne Schäpers 


bis 1.1.1 berücksichtigt. 


Die ProDOS-Analyse 


Version 1.0.1, 1.0.2, 1.1.1 


„Die ProDOS Analyse“ ist die umfangreichste und detail- 
lierteste Darstellung, die jemals ein Apple-Betriebssystem 
erfahren hat. Wer die „Innereien“ von ProDOS bis zum 
letzten Byte, z. T. bis ins letzte Bit kennenlernen möchte, 
braucht dieses Buch. Das komplette Betriebssystem (Urla- 
der, MLI, Disk-Driver, RAM-Disk-Driver und Uhr-Routine) 
mit Ausnahme des BASIC-SYSTEM wird mit umfangrei- 
chen Kommentaren und Übersichtstabellen disassem- 
bliert. Dabei werden alle bisherigen Versionen von 1.0.1 
„Die ProDOS-Analyse" 
schreibt erstmals auch mehrere Programmierfehler, die bis 
in die neueste Version zu finden sind. Auch die nicht im 
„Technical Reference Manual" aufgeführten Eigenschaften 
von ProDOS werden analysiert und beschrieben, z. B. die 
vertrackten eingebauten Testroutinen zur Identifikation der 
verschiedenen Apple-Il-Modelle und eventueller Nachbau- 
geräte. Programmierer, die ProDOS versionsabhängig 
„patchen” möchten, erhalten hier den genauen Überblick, 
wo was geändert werden muß, damit dies keine negativen 
Konsequenzen hat. Durch die minutiöse theoretische Se- 
zierung von ProDOS eröffnen sich völlig neue program- 
mierpraktische Perspektiven. 
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1985, 470 S., kart., 
DM 68,-— 
ISBN 3-7785-1134-3 
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Atari-ST-Produkte 


Datenbank für den Atari ST 


Dieter und Jürgen Geiß vom Soft- 
warehaus AD| (Peeker-Lesern 
längst als fachkundige Autoren be- 
kannt) haben in Zusammenarbeit 
mit ATARI die echt relationale 
Datenbank ADIMENS ST entwik- 
kelt. Die Datenbank besitzt eine 
Schnittstelle zu den Textverarbei- 
tungsprogrammen 1ST WORD und 
1ST WORD PLUS und schließt da- 
mit die Lücke zwischen Dateiver- 
waltung und Textverarbeitung. Die 
Einbettung in die GEM-Oberfläche 
des Atari ST erlaubt eine unproble- 
matische Bedienung des Systems. 
ADIMENS ST überzeugt durch 
Leistungsfähigkeit und Lieferum- 
fang: 

Die Datenbank ist echt relational 
aufgebaut, d.h. eine physikalische 
Datei kann mehrere logische 
Dateien umfassen; dadurch sind 
Verzweigungen möglich. 
ADIMENS ST zeichnet sich auch 
bei größeren Datensätzen (z.B. 
2000 Datensätze) durch extrem 
kurze Such-, Zugriffs- und Sortier- 
zeiten aus. Beim Einsatz einer 
RAM-Disk beträgt die Suchzeit für 
den ersten Datensatz ca. 0.04 - 0.3 
Sekunden, die Zugriffszeit für je- 





den weiteren Datensatz nur 0.01 - 
0.1 Sekunden! 

Daten- und Textverarbeitung wer- 
den mit der neuen Datenbank über 
Shell integriert. Ein direkter Wech- 
sel zwischen Textverarbeitung und 
der aktuellen Datenbank ist daher 
problemlos möglich. 


Die integrierte Druckeranpassung 
und Druckersteuerung erlaubt die 
Direktausgabe von Listen auf Ata- 
ri-, Epson- oder IBM-kompatiblen 
Matrixdruckern, 


Vor jeder Option kann ein Hilfetext 
mit erklärenden Informationen an- 
gewählt werden. 


Für Programmierer, die aufbauend 
auf der durch ADIMENS ST er- 
zeugten Datenbasis eigene Pro- 
gramme erstellen möchten, ist ei- 
ne Programmierschnittstelle (C) 
vorgesehen. 

Dank der bedienerfreundlichen 
GEM-Oberfläche des Atari ST laßt 
sich der mächtige Funktionsum- 
fang des Software-Pakets leicht 
beherrschen. 


Die umfassende Konzeption der 
Datenbank eröffnet dem Anwender 
vielfältige Einsatzmöglichkeiten: 

— Integrierte Daten- und Textverar- 
beitung (Listen, Serienbriefe, For- 
mulare) 

— Karteiaufbau und -verwaltung 

— Adreßverwaltung mit komplexen 
Selektionsmöglichkeiten 

— Katalogerstellung und -verwal- 
tung 


- Bibliotheksanwendungen 

— Auftrags-, Projekt-, Terminpla- 
nung 

— Verwaltung, Pflege und Organi- 
sation von diversen Daten, Listen, 
Plänen usw. 

ADIMENS ST kostet komplett ca. 
DM 499,- 

Bezugsquelle: ATARI Corp., Raun- 
heim und Atari-Händler 


Amateurfunk-Fernschreib- 
Programm für Atari ST 


Das Programm RADIO-WRITER 
ST ermöglicht den Empfang und 
die Aussendung von Texten Über 
Fernschreibkanäle im Code COITT 
Nr. 2 (Baudot) und im ISO-7-Bit- 
Code (ASCII). Damit ist ein Zugriff 
auf Datenbanken über Telefonmo- 
dems oder Fernschreiben im Ama- 
teurfunk möglich. Das Programm 
bietet frei wählbare Schnittstel- 
lenparameter, Selektivruf-Auswer- 
ter und Selbsttester, geteilte Bild- 
schirmdarstellung,  vollautomati- 
sche Steuerung des Empfängers 
und hat bereits im QSO änderbare 
Standardtexte eingebaut. Die Ein- 
stellungen der GEM-Bildschirm- 
menüs sind mit der Maus program- 
mierbar, Aufzeichnung und Wie- 
dergabe der Textdateien sowie die 
Druckausgabe während des Emp- 
fangs erfolgen ohne Datenverlu- 
ste. RADIO-WRITER ST arbeitet 
mit folgender Gerätekonfiguration: 
Atari 260ST, 520ST/ST+, 1040ST, 


Monitor SMi124, mindestens 1 Dis- 
kettenlaufwerk SF354/SF314 oder 
Harddisk, Konverter mit AFSK 
(bzw. Modem) mit Anschluß an die 
RS232-Schnittstelle des Compu- 
ters, Texteditor zum Erstellen der 
Texte (ED,1ST WORD). 
RADIO-WRITER ST kostet kom- 
plett mit Diskette und Handbuch 
ca. DM 98,-. 

Bezugsquelle: AFUSOFT — Buch- 
handlung Franke, Eisingen 


Buchhaltung auf dem Atari ST 


Das Haus der Buchhaltung bietet 
für den Atari ST ein Administra- 
tionspaket an, das v.a für Benutzer 
aus dem Bereich des Einzelhan- 
dels interessant sein dürfte. Es 
umfaßt Programme zu den Berei- 
chen Buchhaltung, Faktura, Lohn- 
buchhaltung, Karteiverwaltung und 
scheckschreibung. Insgesamt 
werden 7 Disketten mitgeliefert, 
von denen eine spezielle Texte für 
die Implementierung auf dem Atari 
ST enthält; von den übrigen Dis- 
ketten sind 3 Programmdisketten 
und 3 vorbereitete Datendisketten. 
Ein 300seitiges, deutschsprachi- 
ges Handbuch wird mitgeliefert. 

Im Einzelbezug kosten die Pro- 
gramme ca. DM 3900,-, als Ge- 
samtpaket ca. DM 2260,- (Preise 
incl. Mwst.) 

Bezugsquelle: Haus der Buchhal- 
tung, Duisburg 
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DOS-3.3-Diskette; Heft 11/1986 
Einzelbezug DM 23,— 
Fortsetzungsbezug DM 20,— 


(1) Zweck; (2) Heft/Seite; (3) 
Gerätekonfiguration; (4) Be- 
triebssystem; (5) Programmstart; 
(6) Sonstiges 


T 120 T.DISK.MONITOR 

B 016 DISK.MONITOR 

(1) Disketteneditor für DOS 3.3; 
(2) 11/86, S. 6; (3) Ile mit 80 Z/Z; 
(4) DOS 3,3 oder Diversi-DOS; 
(5) BRUN DISK.MONITOR; (6) 
Druckersteuerzeichen bei Bedarf 
im Quelltext T.DISK.MONITOR 
anpassen. 


T 019 T.DISK.SUCHER 
B 003 DISK.SUCHER 


Hüthig Software Service - Postfach 102869 - 6900 Heidelberg 1 


(1) Programm zum Suchen von 
Zeichenfolgen auf 35-Spur-Dis- 
ketten; (2) 11/86, S. 10; (3) II+/ 
e/c; (4) DOS 3.3 oder Diversi- 
DOS; (5) BRUN DISK,SUCHER. 


T 022 T.STRCAT 

B 003 STRCAT 

A 003 STRCAT.DEMO1 

A 006 STRCAT.DEMO2 

(1) Assemblerroutine zum Ein- 
lesen des DOS-3.3-Catalogs in 
einen String-Array; (2) 11/86, S. 
12; (3) II+/e/c; (4) DOS 3.3 oder 
Diversi-DOS; (5) RUN STRCAT 
‚DEMO1 oder STRCAT.DEMO2 


I 0S UI LITE EERT 
T 028 UTIL.ASS.TEXT 
T 004 DEMO.TEXT 


(1) Unit mit diversen UCSD-Utili- 
ties; (2) 11/86, S. 16; (3) Il+/e/ 
c; (4) UCSD-Pascal 1.1/1.2; (5) 
E(xecute DEMO; (6) Textfiles 
müssen zunächst mit GETDOS 
(von Disk #18) auf Ihre UCSD- 
Diskette konverliert werden; sie- 
he Aufsatz. 


T 066 PRINT.FILE.TEXT 

(1) Programm zum formatierten 
Ausdruck von UCSD-Pascal-Li- 
stings; (2) 11/86, S. 24; (3) II+/ 
e/ic; (4) UCSD-Pascal 1.1/1.2; 
(5) E(xecute PRINT,FILE; (6) 
Textfiie muß zunächst mit GET 
DOS (von Disk #18) auf Ihre 
UCSD-Diskette konvertiert und 
dann compiliert werden. 


A 003 DEMO.INPUT.FORM 

T 008 T.INPUT.FORM 

B 002 INPUT.FORM 

(1) Assemblerroutine zur Einga- 
be von Formelausdrücken unter 
Applesoft; (2) 11/86, S. 32; (3) 
II+/e/c; (4) DOS 3:3; (5) RUN 
DEMO.INPUT.FORM. 


A 002 WORT.SUCHER 

T 011 T.WORT.SUCHER.OBJ 

B 003 WORT.SUCHER.OBJ 

T 134 JAHRESINHALT 

(1) Suchprogramm für kumulier- 
tes Peeker-Inhaltsverzeichnis 
oder ähnlich strukturierte Datei- 
en; (2) 11/86, S. 55; (3) II+/e/c; 
(4) DOS 3.3 oder Diversi-DOS; 
(5) RUN WORT.SUCHER 
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Verlangen Sie mehr 


Computerbücher aus dem Fachbuchverlag Hüthig: 


Präzise Informationen, aktuelle Themen, 
gut lesbarer gesetzter Text. 


Ama Schläger 


ProDOS-Analyse 


Versionen 101,102, 111 





Arne Schäpers 

ProDOS-Analyse 

Versionen 1.0.1, 1.0.2, 1.1.1 

1985, 470 S., kart,, DM 68,— 

ISBN 3-7785-1134-3 

Dies ist die umfangreichste und detail- 
lierteste Darstellung, die jemals ein 
Apple-Betriebssystem erfahren hat, So 
etwas gibt es nicht einmal ın Amerika! 





Mit ausführlichen 


Frogrammbeispielen ei ; 


Unch Stiehl 
2. Auflage 





Ulrich Stiehl 

Apple Assembler 

1984, 200 S., 3 Abb,, kart, DM 34,— 
ISBN 3-7785-1047-9 

Alle wichtigen ROM-Routinen sowie 
eine Vielzahl von Hilfsprogrammen 
werden in diesem Buch für den Pro- 
grammierer mit Anfängerkenntnissen 
vorgestellt. Insgesamt über 40 Utilities 
mit mehreren völlig neuartigen Pro- 
grammen sind gelistet. 


Weitere Titel und Informationen finden Sie in unserem Computerbuch-Katalog: 


Dr. Alfred Hüthig Verlag, Postfach 102869, 6900 Heidelberg 1 








Apple-Grafik 


DOS Toolkit-Erweiterungen 





Arne Schäpers 

Bewegte Apple-Grafik 

1985, 305 S., 6 Abb., kart, DM 58,— 
ISBN 3-7785-1150-5 

Ein Kursus für alle, die auf dem Apple 
hochaufgelöste und bewegte Grafiken 
in Maschinensprache programmieren 
wollen. Schrittweise wird ein Arcade- 
Spiel entworfen, das käuflichen Action- 
Spielen in der meisterhaften Grafik als 
Vorbild dienen kann. 


u rp's Be ee er 


Mit ausführlichen 
Programmbeispielen 


Tips 
hr 


Tricks 


Arch Stihl 


2. Auflage 


Ulrich Stiehl 
Apple DOS 3.3 
Tips und Tricks 


2., durchges. Auflage 1984, 216 S., 
kart., DM 28,— 
ISBN 3-7785-1049-5 


Das Standardwerk zum DOS 3.3 so- 
wohl für BASIC- als auch für Assem- 
blerprogrammierer. Enthüllt einige bis- 
lang noch niemals publizierte Techni- 
ken und viele Tricks aus der langjähri- 
gen Praxis des Autors. Dieses Buch ist 
der unentbehrliche Begleiter für jeden 
Apple-Programmierer 





Frank Bühler _ 


Applesoft BASIC 


Tips und 
Trick 





Frank Bühler 

Applesoft BASIC 

Tips und Tricks 

1985, 241 S., 40 Abb., kart, DM 38,— 
ISBN 3-7785-1094-0 

Das Buch enthält eine komplette Be- 
schreibung aller möglichen Applesoft- 
Befehle und zeigt an einem Beispiel die 
erforderliche Syntax auf. Ausgearbeite- 
te Unterroutinen können leicht in eige- 
ne Programme übernommen werden 


= "rr-- m m wer wir ke 


für Aufsteiger 


Mit ausführlichen 


Ulrich Stiehll Programmbeispielen 


2. Auflage 





Ulrich Stiehl 
ProDOS für Aufsteiger 
Band 1 


2., geänderte Auflage 1985, 208 S., 
kart., DM 28,— 

ISBN 3-7785-1098-3 

Das Schwergewicht des ersten Bandes 
liegt auf der Darstellung der Pro-DOS- 
internen Systemadressen und der As- 
semblerprogrammierung unter diesem 
neuen Betriebssystem. Das Werk ent- 


hält auf über 70 Seiten eıgens hierfür 


entwickelte Programme, 





Apple-Assembler 
lernen 


Band 1: Einführung in die 
Assembler-Programmierung 








Jurgen Kehrel 

Apple-Assembler lernen 

Band 1: Einführung in die Assembler- 
Programmierung des 6502 

1985, 235 S,, kart., DM 38,— 

Noch nie war es so einfach, die As- 
sembler-Programmierung auf dem 
Apple zu erlernen, wobei auch der 
neue 65C02-Prozessor behandelt wird 





Carl Ulrich Wassermann 


Apple Ilc 


Handbuch für 
Anwender und Programmierer 





Carl-Ulrich Wassermann 
Apple Ilc 

Handbuch für Anwender 
und Programmierer 


1985, 324 S,, kart., DM 35 -- 
ISBN 3-7785-1157-2 


Ein Handbuch für alle, die die besonde- 
ren Eigenschaften det Apple Ilc voll 
ausschopfen wollen 


sie 

zen 
N 
er per 
\ 


[]j) Hüthig 


Warum wollen Sie ein teures Textverarbeitungsprogramm kaufen, 


wenn es ein billiges und besseres gibt? 





von Harald Grumser 

Programmdiskette und Handbuch 
Gerätevoraussetzung: Apple Ile oder Ilc (nicht II+) 
DOS-3.3-Version. 

Normalpreis DM 128,- (ISBN 3-7785-1419-9) 
Sonderpreis für Peeker-Abonnenten DM 93,— 


Fast-Writer 


ProDOS-Version. 

Normalpreis DM 128,— (ISBN 3-7785-1421-0) 
Sonderpreis für Peeker-Abonnenten DM 98,- 
Kombinationspreis für Bezieher der 
DOS-3.3-Version DM 28,— 


Fast-Writer läuft auch auf neuem Apple GS! 


Der Fast-Writer von Harald Grumser ist in zahlreichen Funktionen wie Scrollen, Suchen und Ersetzen mit 
Abstand das schnellste und damit angenehmste Textverarbeitungsprogramm für den Apple lie oder Ilc. 


Flexibilität 
Viele Textverarbeitungsprogramme sind geschützt und 


laufen deshalb nur in Verbindung mit normalen Disk-II- 
Laufwerken. Nicht so der Fast-Writer! 


-Der Fast-Writer modifiziert weder DOS 3.3 (oder 
Diversi-DOS) noch ProDOS und kann deshalb mit 
BRUN FAST.WRITER gestartet werden. Unter Diversi- 
DOS ist der Fast-Writer dann in 3 Sekunden im Spei- 
cher. Vergleichen Sie einmal, wie lange es dauert, bis 
andere Textprogramme im Speicher sind! 


-Da der DOS-3.3-Fast-Writer in den oberen 16K (= 
Language Card) liegt, kann man ihn vorübergehend 
verlassen und mit einem einfachen Befehl wieder star- 
ten. Mit anderen Worten: Der Fast-Writer ist permanent 
verfügbar, auch wenn Sie zwischendurch beispielswei- 
se mit FID Dateien kopiert haben. 


— Der Fast-Writer läuft mit allen externen Datenspei- 
chern, die für DOS 3.3 oder ProDOS gedacht sind, z.B. 
mit dem Erphi-160-Spur-Subsystem, mit der Mega- 
board-MDB-Festplatte, mit RAM-Karten usw. Spezielle 
Anpassungen sind nicht erforderlich. Suchen Sie ein- 
mal ein Textprogramm, das mit diesen Datenspeichern 
auf Anhieb funktioniert! 


— Der Fast-Writer kann mühelos über ein Menü für Ihre 
speziellen Aufgaben konfiguriert werden. Sie können 
z.B. per Knopfdruck die Zeilenbreite (normal 80 Zei- 
chen) am Bildschirm einstellen, wobei ab einer Breite 
von weniger als 41 Zeichen automatisch auf die größere 
Bildschirmschrift umgestellt wird. Ferner können Sie 
die Größe des Arbeitsspeichers (insgesamt ca. 35500 
Zeichen) beliebig in Textspeicher und Hilfspuffer (für 
Löschen und Blockverschieben) aufteilen. Wenn Sie 
z.B. große Textblöcke im Speicher zu verschieben ha- 
ben, so können Sie einen entsprechend großen Hilfs- 
puffer von z.B. 10000 Zeichen einrichten. Damit entfällt 
das zeitraubende Zwischenspeichern und Einlesen von 
Diskette. 


Befehlsvorrat 


Der Fast-Writer verfügt über eine große Zahl von Be- 
fehlen, von denen Sie in der Praxis jedoch nur wenige 
benötigen. Fünf Befehlsübersichten sind durch einge- 
baute Hilfsübersichten immer abrufbar, so daß Sie 
schon nach einer mehrstündigen Einarbeitung auf das 
Handbuch verzichten können. Eine Auswahl der wich- 
tigsten Befehle: 


- Freie Cursorbewegung in allen vier Richtungen mit 
eingebauter Schnell-Scroll-Routine. 


— Diverse, per Knopfdruck ein- und ausschaltbare Op- 
tionen, z.B. Wortumbruch/kein Wortumbruch, Return 
sichtbar/unsichtbar, Kopfzeile (Statuszeile) mit Spei- 
cherbelegung, Cursorposition usw. eingeblendet/aus- 
geblendet, Bildschirm geteilt/ungeteilt, Tabulatorleiste 
sichtbar/unsichtbar, überschreibmodus (statt normalen 
Einfügmodus) ein/aus usw. 


— Eingabe von Kontrollbuchstaben (einschließlich Otrl-V!) 
möglich. Automatische Konvertierung in Groß- oder Klein- 
schreibung (unter Berücksichtigung der Umlaute und Bl) 


— Extrem schnelles Suchen und Ersetzen von Zeichen- 
ketten (vorwärts und rückwäris). 


— Makros frei definierbar und per Knopfdruck abrufbar. 
Makros können nicht nur stereotype Wortiolgen sein 
(z.B. „Sehr geehrte Herren“), sondern auch alle Be- 
fehlsfolgen, die man beim Fast-Writer sonst über die 
Tastatur eingeben würde. So läßt sich beispielsweise 
ein Text automatisch von Laufwerk 1 laden und auf 
Laufwerk 2 speichern. 


— DOS-Kommandos wie Catalog, Delete, Rename usw. 
immer verfügbar (bei DOS 3.3 zusätzlich Init, bei Pro- 
DOS zusätzlich Online und Datum) 


— Ausdruck auf Matrixdrucker (normal endlos), Schreib- 
maschine (normal mit Einzelblatt) und zu Kontrollzwek- 
ken auf Bildschirm; links- und rechtsbündig, zentriert 
und Blocksatz; einstellbarer linker, rechter und oberer 
Rand (im Text änderbar), bei Bedarf mit Kopizeile und 
Paginierung usw. Der Ausdruck kann über eigene 
Druckertreiber umgelenkt werden, um z.B. Probleme 
mit Typenrädern, Steuerzeichen usw. zu beheben. 


— Makros, Druckparameter, Druckertreiber und Tabula- 
toren können auf Diskette gespeichert werden. 
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